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A COMPUTER PROGRAM TO PREDICT ROTOR ROTATIONAL NOISE OF A 
STATIONARY ROTOR FROM BLADE LOADING COEFFICIENTS 

Ramani Ramakrishnan 
The George Washington University 
Joint Institute for Acoustics and Flight Sciences 

Donald Randall* 
and Robert N. Hosier 

Langley Directorate, U.S. Army Air Mobility R&D Laboratory 

SUMMARY 

A digital computer program is presented. The program calculates the rotational 
noise of stationary helicopter rotors based on multiple sets of measured or hypothetical 
high-frequency blade-loading coefficient data. The programing langu^e used is 
FORTRAN IV. A description of all main and subprograms is provided so that any user 
possessing a FORTRAN compiler and random access capability can adapt the program 
to his facility. 

In the proper format, empirical or hypothetical blade surface-pressure spectra are 
used by the program to calculate: (1) blade station loading spectra, (2) chordwise and/or 
spanwise integrated blade-loading spectra, and (3) far-field rotational noise spectra. Any 
of five standard inline functions describii^ the chordwise distribution of the blade loading 
can be chosen in order to study parametrically the acoustic predictions. 

The program output consists of both printed and graphic descriptions of the blade- 
loading coefficient spectra and far-field acoustic spectnun. The results may also be 
written on binary file for future processing. 

Examples of the application of the program along with a description of the rotational 
noise prediction theory on which the program is based are also provided. 

INTRODUCTION 

The studies reported in references 1 and 2 demonstrated that the far-field rotational 
noise generated by a stationary (no forward speed) rotor can be accurately predicted from 
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measurements of the fluctuating surface pressures on the rotor blade surface. In these 
references, it was also shown that accurate predictions were achieved only when fluctu- 
ating surface pressures up to frequencies of 500 Hz to 1 kHz were considered. This 
report documents the computer program which was developed as a part of those studies. 
The prc^ram uses the measured spectra of the fluctuating surface pressures in the theory 
of references 3 and 4 in order to predict the far-field rotational noise spectra. The pro- 
gram is called a Stationary Rotor Rotational Noise Prediction Program, hereafter abbre- 
viated as SRRNPP. 

SRRNPP is written in a version of FORTRAN IV currently in use on Control Data 
Corporation (CDC) 6000 series machines at the Langley Research Center. It is written 
for the user with a basic familiarity with references 1 and 2. In addition to the rotor 
geometry and performance parameters, SRRNPP requires as input either measured or 
hypothetical blade surface-pressure spectra (amplitude and phase). These inputs are 
used to calculate: (1) blade station loading spectra, (2) chordwise and/or spanwise- 
integrated blade-loading spectra, and (3) far-field rotational noise spectrum. The station- 
loading spectra describe the frequency content of the fluctuating blade surface pressures 
at the measurement points on the rotor blade. The integrated blade-loading spectra 
describe the summed frequency content of a niunber of chordwise and/or spanwise mea- 
surement stations or points. The far-field rotational spectrum describes the predicted 
frequency content of the rotational noise at any far-field point. Any of the five inline 
functions shown in table I may be chosen to study parametrically the acoustic predictions. 

The SRRNPP output consists of both printed and Calcomp Graphic descriptions of 
the station and integrated loading spectra and of the rotational noise spectrum. At the 
user’s option, these results may be written on binary file for future processing. The 
SRRNPP is designed to run economically and efficiently through job-stepping and rigid 
formatting. 

The format for this paper is to present an overview of the main and subprograms 
in the main body. The overview includes program application, subroutine usage, input and 
output guides, program test cases, and concluding remarks. Appendices A to G present 
details of the program. Such details include the theory and equations used, transducer 
spectrum-data management, random access file usage, plotting guides, numerical sub- 
routine usage, and program usage and listing. 

SYMBOLS 

The values are given both in the U.S. Customary Units and in the International 
System of Units (SI). The measurements and calculations were made in U.S. Customary 
Units. 
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speed of sound, m/sec (ft/sec) 
number of blades 
blade chord, m (ft) 
observer distance from source, m (ft) 
total rotor drag force, Lp sin j3, N (lb) 
force vector, N (lb) 

Bessel fimction of the first kind of order q and argument Zq 
complex operator, \Pl 

drag operating constant, ^ N/m^ (Ib/ft^) 

lift operating constant, sin o’, N/m^ (lb/ft2) 

Raq 

load per blade per vinit span, N/m (Ib/ft) 
total rotor lift force, Lp cos /3, N (lb) 
total rotor aerodynamic load, N (lb) 
tip Mach number, fir^^aQ 
effective Mach number, 0.8Mp 
acoustic harmonic number 
rotor shaft frequency, Hz 
general blade pressure, N/m^ (Ib/ft^) 

amplitude of the qth or sth fluctuating blade pressure harmonic, N/m^ 
(Ib/ft^) 
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Pg amplitude of the zeroth (uniform) blade pressure harmonic, N/m^ (Ib/ft^) 

p acovistic pressure, N/m (Ib/ft ) 

Q limit of blade-loading coefficient summation (defined in eq. (A13)) 

q mode number (q^= mB ± s) 

R observer distance from rotor center, m (ft) 

r source point distance from rotor center, m (ft) 

Tg effective rotor radius, O.Srt, m (ft) 

r^ blade tip radius, m (ft) 

SP sound pressure, N/m^ (Ib/ft^) 

SPj^g amplitude of mBth sound pressure harmonic, N/m^ (Ib/ft^) 

Sq jump fimction, S = 0 for q < mB, S = 1 for mB £ q 

s blade-pressure harmonic nxunber 

t time variable, sec 

Vrp blade tip speed 

X observer coordinate vector, m (ft) 

y source coordinate vector, m (ft) 


Zg Bessel fimction argument, niBMg cos a’ 

Pq 

a„ qth blade-loading coefficient, -k- 

Ps 

0 's sth blade-loading coefficient, 

i3 effective blade force angle, radians 

yq limit and directivity function, mBJq(ZQ) 
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arbitrary phase constants, radians 
observer azimuthal angle, radians 
observer elevation angle, radians 
time period, sec 

phase angles of the blade pressure or blade loading harmonics , radians 
chordwise loading distribution spectrum function 
rotor azimuthal angle, radians 
angular frequency, 27 tN 

Subscripts; 

m,mB sound pressure harmonic number 

q,s blade-loadir^ or blade -pressure harmonic number 

PROGRAM OVERVIEW 

A concise explanation and derivation of the theory used in this study are detailed in 
appendix A. The computational procedure of the SRRNPP uses the final equation 
(eq. (A12)) of appendix A. It is clear from equation (A12) that in addition to general rotor 
parameters, the prediction process requires a set of blade-loading coefficients called 
o's. These o's are the Fourier coefficients of the rotor blade surface pressures nor- 
malized by the uniform or static surface pressures. SRRNPP manipulates the given or 
computed o's to predict the rotational noise efficiently. 

A general review of the contents of the program is \indertaken here. The fimction 
of its main and subprograms becomes apparent in the program application section. The 
SRRNPP package consists of five major parts; two are computational, the rest are effi- 
cient data (input/output) manipulators. Table II shows the program interrelation. A 
detailed description of the program usage and the various efficient techniques is under- 
taken separately in appendix F for the benefit of the user. A periodic reference is made 
to this appendix at various stages of the text and hence the user is advised to familiarize 
himself with appendix F. 
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T 

*^q>^s 

\oB 

SI 
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Program RAMANI 


This program combines the upper and lower blade surface-pressure coefficients 
at each location along the chord (or span). RAMANI converts the gage-referenced sur- 
face pressures into differential pressures. The conversion takes one of the following 
three forms: pressure data from upper and lower surfaces can be added; the data can be 
weighted if surface pressures from only one surface are available; and the datum from a 
particular location can be skipped if it is in error. 

Program SPECPLT 

The program plots the differential pressure spectra (both amplitude and phase) 
against frequency. 

Program TRANS 

TRANS is a preprocessing program. The program preprocesses the differential 
spectra output from program RAMANI by reorganizing and storing the output on random 
access file for efficient use in RNPPE4. 

Program RNPPE4 

This program calculates the rotor rotational noise using equation (A12). It predicts 
the sound pressure levels at sovind harmonic numbers mB. The sound pressure levels 
are then modified by one of five chord spectrum functions chosen by the user. (See 
appendix A.) 

Program SPLPLT 

This prc^ram is similar to program SPECPLT. SPLPLT plots the output from 
program RNPPE4. 


PROGRAM APPLICATIONS 

There are three different ways in which the blade-loading data can be provided to 
the SRRNPP. The program operation for each method is illustrated by the followii^ 
three examples. 


Example 1 

In this example, the blade-loading data are obtained from an experimental setup 
where it is possible to obtain loading information at a representative span location on a 
blade of a hovering helicopter. 
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Manipvilation of Loading Spectra 


Figure 1(a) shows the location of surface-pressure transducers movmted at a rep- 
resentative span location on the blade used in references 1 and 2. These transducers 
measure the surface pressures for various rotor operating conditions. After digitization, 
these data are then Fourier analyzed using a program such as the one in reference 5, 

After the Fourier analysis, each transducer location has an amplitude and phase spectrum 
associated with it; the associated amplitude and phase spectrvim has been stored on output 
tape, in the format required by SRRNPP, (See section on "SRRNPP Input Guide.") 

Thus, after Fourier analysis the user has a set of gage-referenced (amplitude and 
phase) pressure spectra at each upper and lower surface location along the chord of the 
blade. These spectra are stored on magnetic tapes in blocks of 1500 points for efficient 
operation. (See appendix B.) In order to convert the gage pressures into differential 
pressures, a call to program RAMANI is made. 

The conversion is done through complex addition. Let r^ be the amplitude and 
0£ be the phase of the blade pressure at a given frequency f. If the data from location 
n (upper) is to be added to the one at location k (lower)’, the sum is formed by a point- 
by-point (i.e., at each frequency) complex addition 


rnkf exp 


^^nkf _ 


rnf exp 




rkf exp 


i®kf 


( 1 ) 


where 

^Lf = cos (e^ - 


®nkf “ 


^nf ^nf + ^^kj ^kf ■ 
rnf cos 0^ + cos 9]^ 


If only one set of the spectnun data is to be used at a location, then the data are 
scaled. For example, in figure 1(a), the user desires to use the upper surface data only 
at location 3, after finding the data at location 4 is unusable. The scaling is then 


^34f ■ ^^3f 


®34f “ ®3f 


( 2 ) 


where W is the amplitude weighting factor provided by the user. (Note that the phase 
is left vuialtered.) 
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The user may choose to skip a particular chord location entirely. For example, 
if locations 3 and 4 (fig. 1(a)) contain usable data, the user can omit the addition at loca- 
tions 3 and 4. The user then would have differential pressure data at 3 chord stations 
instead of at 4 chord stations. 

The user may input surface-pressure spectra in any sequence, keeping in mind, 
however, that the spectra have both amplitude and phase. He must specify the combining 
order using the two arrays ISTN and JSTN. (See section on "SRRNPP Input Guide.") 

For the present example problem, the user leaves program RAMANI with 4 differ- 
ential spectra. The spectra consist of both amplitude and phase. 

The user then has the option to plot these combined data or to skip to the next sub-, , 
program. If the user decides to plot the data, a call to program SPECPLT is made. 
Program SPECPLT is usvially job-stepped (see appendix F) with program RAMANI, 
although it can be rxm separately if the data from program RAMANI are stored on mag- 
netic tape. In these plots, the pressure data are normalized by Pq to provide loading 
coefficients. 

The \iser controls the plotting of the differential spectra through the array NNPLOT, 
NNPLOT(I) = 0, 1, 2 for 1=1,2,. . ., MTRACKS. For NNPLOT(I) = 0, no combined 
spectrum plots are produced for combined position I. For NNPLOT (I) = 1, only a 
blade-loading coefficient spectrum plot is produced for combined position I. For 
NNPLOT (I) = 2, both a blade -loading coefficient spectrum plot and a phase spectrum plot 
are produced for combined position I. The user can partially control the axis length and 
can do some of his own scaling; however, he must conform to the restrictions of the 
Langley Research Center Graphic Output System. (See ref. 6, and appendix D.) 

At this stage, the user can imniediately proceed to the next part of SRRNPP or can 
store the data from program RAMANI on a magnetic tape. These choices enable the user 
to check the output from program RAMANI before proceeding. 

Data Preprocessing 

The user enters the program TRANS either immediately following program SPECPLT 
or with the information stored on magnetic tape. This program is an intermediate step. 
TRANS reorganizes the combined spectrum for efficient use (see appendixes B and F) in 
program RNPPE4 which immediately follows, 

Calcidation of Rotational Noise 

Program RNPPE4 computes the sound pressure level at various mB harmonics 
using equation (A12), RNPPE4 is run with program TRANS xmless the loading spectra 
are to be computed internally (as is shown in example 3). Equation (A12) only reqxiires 
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one set of amplitude and phase spectra, which are ass\imed representative of the entire 
blade, to predict the rotational noise. Hence, the user may choose one of three options 
in RNPPE4 to manipulate the spectral data. 

These options are best illustrated by the example that has been presented so far. 
Using the eight sets of spectra (fig. 1(a)), the user left program RAMANI with differential 
spectra at 4 locations along the chord. He could then use each differential spectrxim sep- 
arately (that is, the amplitudes and phases from each station) in equation (A12), and come 
out with 4 predicted sound-pressure-level spectra; or, he could use all the 4 sets of dif- 
ferential spectrum data and come out with amplitude and phase spectra representing all 
the blade loads. This representative spectrum is obtained by integrating the differential 
spectra along all or part of the chord. 

The procedure for integration follows. (See section on "SRRNPP Input Guide.") A 
loading distribution at each loading frequency is defined by six points; four points are along 
the chord and two zeros are at the leading and trailing edges. (See fig, 1(b).) If the user 
wishes to use the entire distribution, a call to subroutine SPLS is made for each loading 
frequency. The 6 points defining the loading distribution at each frequency are fitted with 
a cubic spline fit by SPLS. SPLS then evaluates the integral of this curve by using a mod- 
ified Simpson's rule. This process continues imtil the amplitude arrays are exhausted for 
all loading harmonics. 

However, if for some reason the user wishes to use only a part of the loading dis- . 
tribution (e.g., the front half in fig. 1(b)), subroutine CSIUNI is called to determine a par- 
tial loading distribution. After fitting the points with a cubic spline curve, subroutine 
CSIUNI interpolates to the point (if the point is not at one of the measurement locations) 
which defines the trailing limit of the partial distribution. SPLS is called to integrate this 
curve at each loadirg harmonic. 

Thus, the user obtains representative spectra of loading coefficients o's and 
phases. If the Fourier analyzed spectra (ref. 5) have different bandwidths, program 
RNPPE4 automatically chooses the loading spectral points such that the spectra have a 
bandwidth equal to the blade passage frequency. 

Program RNPPE4 then uses this representative loading information in equation (A12) 
to calcvilate sound pressure levels at frequencies mB. The user can modify these sound 
pressures by any one of five chord spectrum fxmctions (see section on "SRRNPP Input 
Guide") with the input parameter ICHORD. The functions include: point loading, rectan- 
gular, half-cosine, triangular, and saw tooth (refs. 1 and 2; table I). These functions affect 
the sound pressures at each sound harmonic. 

The integration procedure is used only for the amplitudes of the blade loads. The 
phase arrays are averaged to produce a representative phase spectriun. The amplitudes 
are normalized by the Pq value to produce blade-loading coefficients (o's). 
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RNPPE4 is designed to compute multiple sets of sovind pressure level (SPL) values 
for the same general rotor parameters; RNPPE4 can also accept more than one set of 
rotor data. The general flow of this program is described in the flow chart in table HI. 

If the user calls program SPLPLT for a graphic presentation of his results, SPLPLT 
plots the SPL values for each set of loading data. SPLPLT also plots the loading data 
(blade -loading coefficients and, optionally, phases) if computed through integration. Thus, 
in the example if the SPL's are computed by using the 4 sets of data separately and once 
by integrating these 4 sets, the user obtains 5 SPL plots, an integrated loading amplitude 
plot, and, optionally, the corresponding phase plots from RNPPE4. 

Program RNPPE4 stores the SPL and integrated blade-loading harmonic (BLH) data 
temporarily on a disk file. Therefore, it is necessary that SPLPLT be job -stepped with 
program RNPPE4. The plotting data are written on the disk in blocks as they are com- 
puted in RNPPE4. This sequential storing of the SPL and integrated BLH data requires 
that the order of the plots generated in SPLPLT corresponds to the order of computation 
in RNPPE4; To do this, successive values of the input parameter NNPLOT in program 
SPLPLT must correspond to the input parameter NTEGRAT in program RNPPE4. 

As in the combined spectrum -plotting program SPECPLT, the scaling and range of 
the points to be plotted can be partially controlled throxigh user input. The SPL and inte- 
grated BLH plotting must conform with the restrictions of the LRC Graphic Output System. 
(See appendix D.) 

The present example has exercised the entire SRRNPP by manipulating detailed 
experimental data to predict the far-field rotational noise. The sequencing of the oper- 
ations can be carried out by the user as follows: 

1. RAMANI - SPECPLT - TRANS - RNPPE4 - SPLPLT, or 
RAMANI - SPECPLT - tape - TRANS - RNPPE4 - SPLPLT 

The efficient use of this sequencing is explained in more detail in appendix F. 

Example 2 

This example is typical of most experiments with limited facilities. Instead of 
using an array of spanwise and chordwise blade surface-pressure measurements, the user 
may only have surface-pressure data from one measurement location available to him. 

In such a case, the user skips the programs RAMANI and SPECPLT. However, it should 
be remembered here that, depending on the locations of the measurement stations, if the 
user has more than one set of loading data, he cannot skip these two programs. After 
arrangii^ the spectrum data in the required manner (see section on "SRRNPP Input 
Guide") on a magnetic tape (or. cards), the user enters program TRANS directly. Here 
the data is reorganized and supplied as input to program RNPPE4 to calculate the SPL's. 
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In this example, there is no need for integration. Thus, the sequence of operations (see 
appendix F) has been TRANS - RNPPE4 - SPLPLT . Only an acoustic spectrum plot is 
provided. 

Example 3 

Hypothetical blade-loading coefficient spectra are computed theoretically by the 
user who has an a priori knowledge of the fall-off rate of the amplitudes of blade-loading 
coefficient spectra. The user skips programs RAMANI, SPECPLT, and TRANS, and 
supplies the loading data directly to program RNPPE4. In addition to the general rotor 
operating parameters, the user assigns values to the three variables C, X, and NBLHPT. 
(See section on "SRRNPP Input Guide.") The theoretical set of amplitude coefficients are 
then: 


BLH(i) = -5- (i = 1, 2, 3, . . .) 

(i)* . 

where BLH(i) are the amplitude coefficients o^'s. The corresponding phases are all set 
to zero. For more details on the negligible effects of phases, see references 1 and 2. 
These o’s are used directly in equation (A12) with a chord spectrum function chosen by 
the user to predict the SPL's. As in the previous example, the user obtains only one 
graphic output if a call, to program SPLPLT is made. For this example, the sequence of 
operations has been RNPPE4 - SPLPLT. 

A sample test run for example 1 was made using the entire SRRNPP package. This 
test case is described in the section on "Program Applications." 

I 

SUBROUTINE USAGE AND DESCRIPTION 

This section provides a general description of the usage of all subroutines used in 
the five subprograms of the SRRNPP. A detailed documentation of each routine is con- 
tained in appendixes C, D, and E. 

Random Access Subroutines 

Programs RAMANI, SPECPLT, TRANS, and RNPPE4 use random access files to 
improve program efficiency and to reduce storage requirements. Manipulation of the 
random access file in each program is accomplished through the three subroutines 
OPENMS, READMS, and WRIT MS. The three FORTRAN callable routines are system 
resident in the LRC computer complex. 

A detailed description of each of these routines is contained in appendix C. 
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OPENMS is the first routine called and is used initially to open the random access 
file. The parameters of OPENMS define the type of record indexing and the size of the 
irriex table. Numbered indexing is used in all programs and the size of the index table 
is set to 987 to accommodate 30,000 spectrum data points from 24 separate transducers. 
OPENMS is called once at the beginning of each program. OPENMS also designates the 
random access file name. 

WRIT MS is used to transfer a record from central memory to the random access 
file. READMS is used to transfer a logical record from the randoni access file to central 
memory. The parameters of both of these routines define the record number and the ' 
length of the record. 


Plotting Subroutines 

Programs SPECPLT and SPLPLT use many plotting subroutines of the LRC Graphic 
Output System. The subroutines are PSEUDO, CALPLT, AXES, NUMBER, NOTATE, 
and NFRAME. These FORTRAN callable subroutines are system resident. 

PSEUDO is called once at the beginning of programs SPECPLT and SPLPLT. 
PSEUDO initializes the LRC Graphic Output System and indicates the name of the plot 
vector file. 

AXES is called to draw and label the plot axes. One call is required for each axis 
to fee drawn. 

NOTATE and NUMBER are used for annotation of the individual plots. NOTATE is 
used for drawir^ alphanumeric information. NUMBER converts floating-point numbers 
to binary coded decimal (BCD) and draws the resulting alphanumeric information. 


CALPLT is used to do the actual plotting of the data points. It also terminates the 
plotting for the plot vector file. 

- ''NFRAME is used to indicate the completion' of the present plot (frame). It also sets 
up for the next plot. 

Although these subroutines are the actual routines called, many of the individual 
routines are themselves routine dependent. Appendix D describes in detail each of the 
required plotting routines. 


Numerical Subroutines 

■ Program RNPPE4 requires additional subroutines to compute the integrated BLH 
data and to evaluate the SPL values using equation (A12). The subroutines SPLS, CSIUNI, 
and BSSLS are required. SPLS and CSIUNI are two routines presently in the LRC Math 
Library. BSSLS is a modified form of the math library subroutine BJIR. The three sub- 
routines are documented in appendix D. 
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If the blade-loading coefficients and phases are to be computed by integration of the 
loading distribution over a fraction of the chord, the cubic spline interpolater subroutine 
CSIUNI determines a modified partial loading distribution. The loading distribution (or 
the interpolated partial steady loading distribution) is integrated by applying the cubic 
spline integration subroutine SPLS. 

CSIUNI and SPLS are used in a similar manner with like parameters. A cubic 
spline is fit to a supplied set of data points; the spline is then interpolated at a specified 
point (CSIUNI) or integrated over a specified range (SPLS). 

The solution in equation (A12) calls for evalviating Bessel fimctions of the first kind 
at various orders for numerous arguments. Subroutine BSSLS evaluates the Bessel 
function using a backward recursion technique, 

SRRNPP INPUT GUIDE 

The input parameters necessary to operate the SRRNPP are described in this sec- 
tion. Included is a description of the restrictions, mode, units, and default values for 
the input parameter to each of the five subprograms in the SRRNPP, 

Data may be input to the five subprograms by punched cards, magnetic tape, random 
access file, and disk file. The input method chosen depends on the subprogram(s) being 
considered, on the extent to which the program job-stepping is used, and on the values of 
input control parameters supplied to each subprogram through NAMELIST. Sample inputs 
for each program for an actual test case are given in the "Program Test Cases" section. 

Program RAMANI Input 

The input for program RAMANI consists of the transducer spectriun data, the spec- 
trum data combining sequence, and the program control parameters. Magnetic tape is 
used as the means of input for the transducer spectrum data. One or two tapes can be 
used depending on the number of transducers. The transducer data input tape is generated 
by a FAST FOURIER TRANSFORM program (ref. 5). The spectriun data consist of an 
amplitude and a phase at each specified frequency. The specific spectrum data input 
parameters are described in table IV, and the tape format is described in appendix B. 

The spectrum-combining sequence and program control parameters are input by 
NAMELIST. The NAMELIST is named INPUT, and its parameters with default conditions 
and restrictions are contained in table V, 

There are two techniques used to skip uimeeded transducer data. NSKIP is used to 
skip spectrum data records at the beginning of the input tape, or the combining sequence 
arrays ISTN and JSTN are used to select specific transducers for skipping by .settii^ 
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JSTN = 0. MTRACKS mvist be increased by one for each transducer skipped through the 
use of JSTN =0. 

An example of the usage of the spectrum data combining sequence follows. 

Let"lSTN(I) = M and JSTN(I) = N, where I = 1, 2, 3, . . .^24, 0 s M 5 24, 0 £N g 24, 

(24 being the maximum number of surface locations allowed). Then if: ‘ 

1. M N, and N 0, data from locations M and N are added. 

2. M = N, and N, M 0, the data from location M will be scaled by an amplitude ' 
weighting factor W. 

3. M N, and N = 0, data from location M will be skipped. 

To conserve storage requirements two restrictions have been placed on the arrays 
ISTN and JSTN: (1) the ISTN array must be strictly increasing; and (2) ISTN(I) £ JSTN(J) 
for all I 5 J. The second restriction amoxmts to choosing the smallest remaining trans- 
ducer number as the next element in ISTN array. 

Program SPECPLT Input 

The input for program SPECPLT consists of the combined transducer spectrum 
data generated by program RAMANI and various plot control parameters. 

The combined spectrum data are input to SPECPLT by random access file or by 
magnetic tape. The temporary storage of the random access is utilized when the com- 
bined spectrum plots accompany the combined spectra data. In this case, program 
SPECPLT should be job-stepped with program RAMANI and the default lOPTN (default 
is 1) shoxild be used. If the combined spectrum data plots are requested separately, the 
RAMANI output tape can be used as input and the parameter lOPTN should be set to zero. 
The prc^ram deck setups for the different combinations are illustrated in appendix F. 

The format of the combined spectnun data is detailed in appendix B, and the combined 
spectriun data parameters are described in table IV. 

I 

The program control parameters are input by a NAMELIST n^ed INPUT. The 
NAMELIST parameters with specified default conditions and restrictions are described 
in table VI. The array NNPLOT determines which, if any, of the combined spectrum data 
plots are to be generated for each position. The. parameters XMIN, XMAX, YMIN, YMAX, 
and YSCALE give the user flexibility in determining variable axis lengths and scale fac- 
tors. These plot control parameters must correspond to the frame size specified on the 
plot control card. (See appendix D.) 

Program TRANS Input 

The 'input for program TRANS consists of two input control parameters and of the 
combined transducer data generated by program RAMANI. As in program SPECPLT, 
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the combined transducer data can be input by random access file, by magnetic tape, or 
with an additional option for card input. The means of input are dependent upon the job- 
stepping of programs RAMANI and TRAfK; the input is again controlled by the parameter 
lOPTN. The spectrum-data input parameters are listed in table IV. The data format for 
tape and random access is listed in appendix B. The program TRANS input control 
parameters are entered through the NAMELIST named INPUT. The parameters with 
specified default conditions are described in table Vn. The optional card format is 
described in table VIII. 


Program RNPPE4 Input 

The input for program RNPPE4 consists of the reorganized combined spectrum data 
which are generated and passed by program TRANS. The input also contains certain job 
control and rotor parameters controlling the computation of the BLH and SPL values. 

Since the program TRANS is job-stepped with prc^ram RNPPE4, the combined 
spectrum data are passed through the random access file. Random access record point- 
ers and counters are passed aloi^ with the spectrum data. The combined spectrum-data 
random access parameters are described in table DC, and the combined spectriun data 
format is listed in appendix B. If only experimental data generated by the inline BLH 
fxmction are used, program TRANS can be bypassed along with the reorganized spectrum 
data. 

The job- control parameters and necessary rotor parameters are passed through 
the NAMELISTS named ROTOR, INPUT, and INBLH. The ROTOR NAMELIST contains 
nximerous helicopter rotor parameters and the nximber of sets of BLH and SPL data to be. 
determined for the specified rotor. The ROTOR NAMELIST is reinput if another rotor is 
to be used with the combined spectrvim data. For each set of BLH and SPL values, the 
NAMELIST INPUT or INBLH must be supplied. INPUT is used when the BLH coefficients 
and phases are to be computed using the combined spectr\im data; INBLH is used when the 
BLH coefficients and phases are to be computed internally. NAMELIST INPUT contains 
parameters which determine whether or not integration is to be used to compute the BLH 
data; these parameters also determine which spectriim chord fimction is to be vised to 
adjust SPL values. NAMELIST INBLH is used primarily to define the inline BLH func- 
tion. The parameters of NAMELISTS ROTOR, INPUT, and INBLH, tc^ether with speci- 
fied default conditions and restrictions, are contained in table X. 

The parameter NTEGRAT of NAMELIST INPUT determines whether the BLH data 
are computed through the integration of the surface-pressure data and whether this inte- 
gration is over the entire chord or over a fraction of the chord. NTEGRAT set to zero 
implies no integration. Full- chord integration is accomplished by setting NTEGRAT to 
K where K is the number of combined transducers stations with the addition of two stations 
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for the blade edges. Partial integration is accomplished by one or two means. If the 
upper limit of integration coincides with the ith combined transducer position, it is more 
efficient to use NTEGRAT = K. If the upper integration limit does not coincide with a 
combined position, set NTEGRAT to -1 and input the desired value of PRTLINT. 

Program SPLPLT Input 

The input for program SPLPLT consists of the sets of computed sound pressure 
levels, the sets of integrated blade-loading coefficients and phases, and various plot 
control parameters. If SPL and integrated BLH plots are desired, programs RNPPE4 
and SPLPLT are job-stepped. The temporary storage of the disk is used to transfer the 
sets of integrated BLH data and SPL values to program SPLPLT. The BLH and SPL ' 
parameters passed by disk to SPLPLT are described in table XI; the format of the data is 
described in appendix B. 

The SPL and BLH plot-control parameters are input through the NAMELISTS FIXED 
and INPUT. NAMELIST FIXED inputs the number of SPL plots desired as well as various 
plotting range and scaling parameters. As in program SPECPLT, the user has specific 
controls oyer his plottii^. NAMELIST INPUT is input before each SPL plot is generated 
and dictates whether integrated BLH plots are desired. All parameters of NAMELISTS 
FIXED and INPUT, with restrictions and default conditions, are described in table XH. ; 

The integrated BLH and SPL data are written to the disk as it is computed in pro- 
gram RNPPE4. This sequential storage of the plotting data necessitates the generation ' 
of the plots in the same order as RNPPE4 generates the data. This plotting is done by 
making values of NTEGRAT in program RNPPE4 equivalent to corresponding values of 
NNPLOT in program SPLPLT. If NTEGRAT is zero, the corresponding value of NNPLOT 
must be zero. If NTEGRAT is nonzero and if integrated BLH plots are desired, NNPLOT 
must be set to 1 or 2 depending on whether an integrated phase plot is desired. If 
NTEGRAT is nonzero and if integrated BLH plots are not desired, NNPLOT must be set 
to -1. 

SRRNPP OUTPUT GUIDE 

The output from the Stationary Rotor Rotational Noise Prediction Program is 
described in this section. The output from each of the five programs making up the 
SRRNPP is considered separately. 

The programs generate printed, tape, and plotted output as well as temporary 
random access and disk output. The type of program output depends on the individual 
program, on the extent to which program job- stepping is being utilized, and the values of 
various output control parameters supplied to each program through NAMELIST. The 
section contains sample output for each program including plots for an actual case run. 
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Program RAMANI Output 

Prc^ram RAMANI generates printed output, a magnetic tape, and optional random - 
access output. 

The printed outpvi incliides; (1) a list of all NAMELIST input parameters including 
default conditions, and (2) a table of combined amplitudes and phases for user specified 
NPWNT frequencies for each of the combined transducer spectrum data positions. 

The magnetic tape generated consists of the complete combined transducer spectnun 
data (amplitudes and phases at the various frequencies) tables for each of the combined 
positions. The format of the combined spectrum data tape is discussed in appendix B, 

• If prc^ram SPECPLT or program TRANS (or both) are td'be job- stepped witli 
RAMANI, it is advantageous to generate and to use the optional random a:cce'ss output of: 
the combined spectmm data. The format of the combined spectrum data stored on the ' 
random access is discussed in appendix B. 

Program SPECPLT Output - . 

The program SPECPLT generates both printed and plotted output. The printed 
output consists solely of the NAMELIST input control parameters. The random access 
output from the preprocessor program TRANS consists of the reorganized combined 
transducer spectrum data. The random access storage format for the reorganized spec- 
trum data is discussed in appendix B. It is reemphasized that the temporary random 
access storage is utilized only when programs TRANS and RNPPE4 are job- stepped. 

Program RNPPE4 Output 

Program RNPPE4 generates printed ouput and temporary disk output. The printed 
output consists of a listing of all NAMELIST input with default conditions, a table of the 
BLH data for each case, and a table of sound pressure levels for each set ofBLH data 
computed. Initially, a list of all the ROTOR NAMELIST parameters is output. At this 
point, the following three-step output sequence is repeated tmtil all cases have been run " 
with the given set of ROTOR data. First, a list of the INPUT or INBLH NAMELIST 
parameters is output. Second, a BLH table is generated consisting of a BLH coefficient, 
a BLH coefficient divided by the uniform loading coefficient, and the phases (radians) com- 
puted at the various harmonics. The size of the BLH table is dependent on the value of 
the inp\it parameter INCOF. Third, a SPL table is generated. This table consists of the 
sound pressure levels (decibels) computed at the harmonic frequencies mBN. After all 
sets of BLH and SPL data have been output for the given set of ROTOR data, the output 
process terminates if another set of ROTOR data is not supplied. The process will repeat 
if another set of ROTOR data is supplied. 
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The temporary disk output consists of the SPL data, the integrated blade -loading 
coefficients, and integrated phases along with associated plot-control and plot-heading 
parameters. The SPL and integrated BLH data are output to the disk as they are 
computed. 

Program SPLPLT Output 

Program SPLPLT generates printed and plotted output. The printed output consists 
solely of a listing of all NAMELIST input parameters including specified default conditions. 

The plotted output consists of the sound pressure level plots and the optional inte- 
grated blade-loading coefficient and phase plots. One plot of SPL (decibels) plotted against 
frequency (hertz) is generated for each set of soimd pressure levels computed in program 
RNPPE4. The optional integrated BLH plotting is controlled by the input parameter 
NNPLOT. One plot of integrated blade-loading coefficients (or averaged phases) plotted 
against frequency is optionally generated if the BLH data are computed through integration 
in program RNPPE4. The actual plots are obtained through the use of job control cards 
activating the LRC Graphics Output System. (See appendix D.) 

PROGRAM TEST CASES 

Specific case by case execution of the entire SRRNPP is illustrated in this section. 
Appendix G contains a listing of the programs. The test run used for the illustrations 
consisted of surface -pressure spectral data obtained from the time series analysis pro- 
gram (ref. 5). Seven sets of amplitude and phase data (2 at 15-percent, 1 at 30-percent, 

2 at 50-percent, and 2 at 75-percent chord stations (see fig. 3)) were obtained from 
7 transducers placed at an 80-percent span on a stationary rotating rotor blade. These 
pressure data were then used to obtain far-field rotational noise by exercising the SRRNPP. 

Program RAMANI 

RAMANI adds the upper and lower surface data. Since there was only one set of 
data available at the 30-percent station, the data were carried over with no weighting. 
Figures 2(a) and (b) contain a sample input and a printed output, respectively, for program 
RAMANI. 


Program SPECPLT 

SPECPLT plots the information from program RAMANI. Since NNPLOT is 2, the 
user obtains both amplitude and phase plots. There are 4 sets of plots after addition. A 
sample input and plotted output are given in figures 3(a) and (b), respectively, for program 
SPECPLT. 
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Program TRANS 

RAMANI provides 4 sets of data after addition; each set represents the 4 positions 
along the chord. TRANS reorganizes the data to be used by RNPPE4, 

Program RNPPE4 

The data from TRANS can be used in different ways to produce SPL's at various 
harmonic nimibers (frequencies). A sample input consisting of the general rotor param- 
eters is presented in figure 4. The flexibility of this program is evident from the following 
options. 

Case A .- A single set of data from the 15-percent chord station (ITRACK = 1) is 
used in equation (A12) with a rectangular chord spectrum f\mction (ICHORD = 1, also see 
table I). Figure 5 contains a sample input and the printed output. 

Case B .- A sample input and printed output are given in figure 6. In this case 
four (in addition to one leading and one trailing edge) sets of data are integrated 
(NTEGRAT = 6) and used with saw-tooth spectrum function (ICHORD = 4, also see table I). 

Case C .- This example uses integration up to 40 percent of the chord from the lead- 
ii^ edge (NTEGRAT = 1). The integrated data are then input to the equations that are 
coupled with triangular chord spectrvun fimction (ICHORD = 3, also see table I). A sam- 
ple input and printed output are presented in figure 7. 

Program SPLPLT 

SPLPLT plots the results obtained from RNPPE4. Figure 8 shows a general para- 
metric input sample. Figure 9 contains sample input and output plots corresjxjnding to 
Case A, alone. Figure 10 and figure 11 are similar to figure 9, but correspond to Cases B 
and C, respectively. Since NNPLOT = 2 for Cases B and C, figures 10 and 11 contain 
integrated amplitude and phase spectra plots in addition to the SPL plots. 

CONCLUDING REMARKS 

A digital computer program which predicts stationary rotor rotational noise from 
measured or hjq)othetical fluctuating blade surface-pressure data has been developed. 

The program uses the theory which was initially developed by Wright and was later refined 
by Ramakrishnan and by Hosier and Ramakrishnan. 

A complete program documentation including program listings, examples, and 
test cases has been presented so that the user can exercise the many program options 
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judiciously. This documentation should allow the program to be adapted to any system 
with FORTRAN IV compiler and random access file capability. 

Langley Research Center 
National Aeronautics and Space Administration 
Hampton, Va, 23665 
September 26, 1975 


20 


APPENDIX A 


THEORY AND EQUATIONS 


Rotational noise is defined as the noise a rotor would generate in an inviscid fluid. 
The origin of this noise is in the periodic forces experienced by the blade as it rotates. 
Rotational noise has a characteristic frequency spectrum consisting of discrete com- 
ponents which are multiples of a fundamental frequency BN. 

The governing unconvected wave equation for a nondissipating medium is given by 


2 

' (Al) 

4 “ 

where p is the sound pressure, F is the fluctuating force, aQ is the sound speed, 
and Einstein's tensor convention is used. In solving this wave equation, the following 
assumptions are made regarding the rotor model: (1) the rotor system as a whole is 
assumed to be stationary, and (2) nonuniform inflow conditions are assumed. This inflow 
gives rise to periodic loading on the rotor disk. 

The force and rotor coordinate systems are shown in figure 12. The solution for 
a point force f acting at y is, then (see also refs. 1 and 2) 


(A2) 

where J implies retarded time t - D^'aQ and D *» |x - y|. Then 
f(y(t),t) = fQ^(r)exp|j(rjnt - - (f>) 

where tj, (^, and ^ are phase constants. The sound pressure from one component tj 
is, then. 


, p(x,t) = - • 


47tD'‘ 


•(x - y) 


1 e[f] , [f] 
aQ at D 


Let 



(x-y) 

47tD^ 



+ 5 exp^j 





(A3) 


= PT,W|dA| = P^(r)n dr di/. 
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Then the radiation from the entire disk is 



At this stage the following approximations are made: (1) the observer remains in the 
far field; (2) 9' is assumed to be zero for computational simplicity; and (3) the loading iS' 
assumed to be concentrated over Ar at an effective radius rg. With the use of series 
identities for integration over \j/, equation (A4) reduces to 



where J|( ) is the Bessel function of order ^ and Mg is the effective rotational Mach 
number. This solution is the resulting sound field from a general pressure pattern 
P|j(rg) expjj(T)flt - 0)j. Once the fluctuating pressures on the rotor disk are deter- 

mined, the far-field radiated discrete noise is then determined. 

A general blade pressure pattern and time history of the loading is shown in fig- 
ure 13. This unsteady periodic loading can be divided into two groups: uniform and 
nonuniform. The uniform pressures can be modeled as 


f(t) = ^ Cjj exp j(kBS2t - kBi^). 

k=-oo 


(A6) 


where 


= -=^Xi Xi is the chord spectrum function which a,ccounts for the 

K ^^0 k 


distribution of the pressures over the chord. 


For real cases Xj^ will not be a simple function. Table I lists simple distributions 
and their respective chord functions x* The uniform pressures have a one-one corre- 
spondence with discrete noise, that is, the kth pressure harmonic influences only the kth 
sound harmonic as shown in reference 7. For a particular sound harmonic m the mode 
of interest is 
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P mR = PmB expj(mBDt - mBify) (A 7) 

LB 

where PmB ” -mB is independent of xjy for viniform pressures. If the 

nonuniform pressures are included, then 

oo 

PmB = ' I ?mB,s ‘ ■>s)] W 

S= -00 

Combining eq^tions (A7) and (A8), assuming <^g = -4>_g and P ^^p _g = Pjj^g g, and 
letting Og = ~= Loading harmonic coefficient, the pressure, mode for. mB sound — 
harmonic and s loading harmonic is obtained 


P mR = PmB X j(mBm - q_i^ - 0gj + exp j(rnBm - q+ i// + (f)^ I (A9) 


where 


q^ = mB ± s 


Comparing eqxiation (A9) with the general pressure pattern we find 

LBOg 

U = mB, { = q^, P^(r^) = and 


Therefore 




SPmR o = LBAr (cos /3 sin cr' — — sin j3]mBJf, fmBMo cos o*) 

— mB,s 2Ran \ mBMp ^ ^ j 


+ fcos ^ sin ct’ — sin j3)mBJr, (mBMp cos cr’) 

\ mBMp / ^ \ / 


(AlO) 


Now, 


LBAr = L;p 


and Lt cos /3 » Lp is the total rotor lift force and Lx sin ^ = Dp is the total drag 
force. Hence, 


SSmB.s = -f VBll'^L - ^k. * 1% - 


Kd<1+) 

mB r<l+ 


(All) 


i 
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where 


Kl = ~ Lp sin a’ 


■ = N % 




The values = mBJq(mBMe cos or'j and «g = loading harmonic coefficients. 

Eqiiation (All) is the sound radiation from a particular loading harmonic s. It does not 
include any phase terms. Now if all the phase terms are included, s\im over s and then 
convert it into a sum over q. Finally, the sound radiation at mB sound harmonic is 
obtained as 



(A12) 


where 


and 


Sq = 0 q < mB 


Sq = 1 ' q = mB 

References 1 and 2 showed that it is not necessary to sum infinite values of q. Based 
on equation (A12) with the Bessel function values, the upper bound for q is loiind to be 


Q = 


10 + V niBMe cos o' 
4 


where J implies the integer part of 10 + |- mBMg cos o' . 


(A13)' 
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MANAGEMENT OF THE TRANSDUCER SPECTRUM DATA 

The Stationary Rotor Rotational Noise Prediction Package is designed to accept up 
to 30,000 spectrum data (amplitude and phase) from up to 24 transducers. In order to 
conserve computer storage needs, only small blocks of spectrum data at any given time 
need to be considered. The purpose of appendix B is to acquaint the user with spectrum- 
data management techniques used in each of the five programs comprising the package. 

- The spectrum data are input to program RAMANI from magnetic tape, in .transducer 
blocks of 1500. The RAMANI input tape format is illustrated in table Xm for 3400 
spectrum-data points per transducer and with 7 transducers. , • 

The input spectrum data are initially stored on a random access file to facilitate ease 
of handling, thus conserving central processing unit (CPU) time. The random access for- 
mat of the spectrum data is similar to the tape (or disk) format of table xm, except for 
the following: (1) a parameter denoting the number of blocks of spectrum data per trans- 
ducer is added to the transducer identification record, and (2) a tape spectrum-data 
record containing both amplitude and phase becomes two random access records (one 
containing the amplitudes and the other containing the phases). 

Therefore, the 28 records of the input tape illustrated in table XIII become 49 ran- 
dom access records. 

The transducer spectra are ready to be combined by addition or by scaling. If 
addition is to occur, a corresponding amplitude (phase) block is selected from each of the 
two transducers. If scaling is to occur, only one amplitude (phase) block is selected. The 
combined spectrum data are now output to disk (tape) and, optionally, to the random access. 
To conserve random access storage the combined spectrum data are written over the 
original input spectra. (This overwriting produces the restrictions placed on the RAMANI 
input arrays ISTN and JSTN.) Table XIV describes the random access format if 4 com- 
bined spectrum-data positions are produced from the spectrum data of the previous > 
example. The RAMANI output tape has a format similar to the random access format 
with the following exceptions: (1) two random access records containing corresponding 
amplitude and phase blocks are reformed into one tape record; and (2) the steady loading 
and amplitude average for each position form a record after the last spectrum-data block 
from that position, instead of in arrays as in the random access format. Therefore, the 
30 random access records of table XIV become 20 tape (disk) records. 

The combined spectrum data are now fed to the plotting program SPECPLT or to the 
spectrum-data reorganization program TRANS. If the program RAMANI is job-stepped 
with SPECPLT or TRANS, the random access records can be used. If the programs are 
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’ not run simultaneously, the tape must serve as the medium of spectrum-data, input 
because the random access is only temporary storage. If the magnetic tape is used' to 
input the combined spectrum data to either SPECPLT or TRANS, the data are first stored 
on random access as in table xrv. 

In program SPECPLT consider the use of the combined spectrum data in generating 
the amplitude and phase spectrum plots. The total number of random access records 
used in storing the combined spectrum data (NRCSUM) is internally computed. The X 
(frequency) values and Y (amplitude or phase) values are stored in blocks on random 
access immediately following the combined spectrum data. The plotting data for suc- 
ceeding plots are restored over these same random access records. If TRANS is to run 
in the job-step mode with program SPECPLT, the combined spectrum data are already 
prestored on random access. 

Assume ‘that in program TRANS the combined spectrum data have been input or 
stored on random access file in the format of table XV. TRANS reorganizes the spectrum 
data and restores the data so that up to 250 amplitude (or phase) points from each com- 
bined position comprise a typical random access record. The reorganized spectrum data 
are positioned on the random access file after the combined spectrum data. Table XV 
illustrates the reorganization of the spectrum data. 

Since program RNPPE4 is run behind TRANS in a job- step mode, the reorganized 
spectrum is passed from TRANS to RNPPE4 through random access. (Necessary counters 
and points are passed to RNPPE4 through two random access records, NREC = 1 and 
NREC = 2.) If the BLH data (coefficients and phases) are determined through integration, 
the random access is again utilized for temporary storage. The BLH data are stored over 
the unorganized spectrum data (in records indexed from 3 to NRCSUM) or following the 
reorganized spectrum data (in records indexed from record NRCSUM + 2+NREAD + 1). 

The Storage location depends on the number of combined positions and the number of 
points per position. BLH data from successive iterations overstore the original set of 
integrated BLH data. 

The SPL and BLH data are written to a disk by case as the data are computed. The 
format of the SPL and BLH is illustrated in table XV for the preceding example. 

Since program SPLPLT is run behind RNPPE4 in a job- step mode, the SPL and BLH 
plotting data are passed to SPLPLT by disk. The data to be plotted are read from the 
disk sequentially unless an integrated phase plot is requested. In this case, the disk is 
repositioned by the FORTRAN BACKSPACE i statement. 

Summary of the management of transducer spectrum data follows: 
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1. The storage of the spectrum data and the corresponding SPL and BLH values 
involves the utilization of magnetic tape, serial disk, and random access for the purpose 
of reducing storage requirements and reducing CPU time, 

2. Magnetic tape is used when permanent storage of the spectrum data is desired.. 

3. Serial disk is used when temporary storage of the spectrum data with corre- 
sponding BLH and SPL data is desired, and when these data can be processed sequentially, 

4. Random access is used as a temporary storage medium when the data are to be,, 
processed in a variable user specified order. 
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RANDOM ACCESS FILE USAGE 

The transducer spectrum data used by the programs in the SRRNPP are often used 
nonsequentially. As described in appendix B, the programs in the SRRNPP utilize a ran- 
dom access file to manipulate and to access the spectrum data. This appendix is designed 
to explain the motivation behind using a random access file and to document the three sys- 
tem resident FORTRAN callable random access subroutines OPENMS, WRITMS, and 
READMS. 

In all four programs (RAMANI, SPECPLT, TRANS, RNPPE4) numbered indexing 
is used and the size of the index is 987, Therefore, a maximum of 986 Icgical records 
is permitted on the random access file and each record is assigned a number between .1 
and 986. 

The subroutines in this appendix are taken from Volume II of reference 6. 

INTRODUCTION 

It is often advantageous to use a random access file whenever it is necessary to 
access records within a file in a nonsequential manner. Since a data cell file or a mag- • 
netic tape file can only be accessed sequentially, these files cannot be used as random 
access files. Therefore, only disk files can be used as random access files. 

An index of disk addresses is used in accessing a random access file. The disk 
addresses are pointers to operating system tables. In processing a random access file, 
the operating system returns a disk address in the index when a logical record is written. 
The operating system accepts a disk address from the user whenever a logical record is 
read. 

Using a random access file, where applicable, normally results in a reduction in 
execution time when the records are accessed in a nonsequential manner. For instance, 
on a test using 1000 logical records, the use of a random access file took 1/15 as much 
CPU time and 1/22 as much peripheral processing imit (PPU) time as the use of a sequen- 
tial file. 

The drawbacks of a random access file are that extra central memory core is 
required for the index and that the number of logical records per file is limited by the 
size of the index. Also, data cannot be stored permanently on a random access file since 
the disk is a temporary storage medium. 


28 



APPENDIX C 


SUBROUTINE OPENMS 


Language : COMPASS 

Purpose : To open a random access file. 

Use : CALL OPENMS (U,IX,L,B 
where 

U is the logical vinit number. 

DC is the first word address of the index. 

L is the length of the index. 

P =0 for numbered indexing. 

= 1 for named indexing. 

Restrictions : OPENMS must be the first operation on a random access file. The file 
must be a disk file. For n index entries, the length of the index must be at least 2n + 1 
if using named indexing, whereas the index length must be at least n + 1 for numbered 
indexing. 

Method : OPENMS sets the first word in the index to a positive munber for numbered 
indexing or to a negative nvunber for named indexing. The random access bit, index 
address, and index lei^th are set by OPENMS into the FET of the file for system com- 
munication, If the file already exists, the master index is read into central memory. 

Accuracy : Not applicable. 

References : None. 

Storage : 1083 locations. 

Subprograms used: GETBA, SIO$, SYSTEM 
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Error messages : (1) UNASSIGNED MEDIUM FILE XXXXXX 

(2) FILE DOES NOT RESIDE ON A RANDOM ACCESS DEVICE, 
XXXXXX 

(3) INDEX BUFFER IS OF INSUFFICIENT LENGTH. XXXXXX 
XXXXXX is the file name. Termination is abnormal in each case. 

Source : Control Data Corporation. 

Responsible person: Mickey G. Rowe, NASA Langley Research Center. D, E. Newell 


Computing and Software, Incorporated. 


APPENDIX C 
SUBROUTINE WRITMS 

Language : COMPASS 

Purpose : To write a record on a random access file. 

Use : CALL WRITMS (U,FWA,N,I) 
where 

U is the logical unit number. 

FWA is the central memory address of the first word of the record. . 

N is the number of central memory words to be transferred. 

I is the record number or record name depending upon the indexing mode set 

by the initial call to OPENMS. 

Restrictions : The file must have been opened by a call to OPENMS. 

Method : The specified record is written on the file and an address entered in the index to 
reference the record. 

Acc\iracy : Not applicable. 

References : None. 

Storage : 1023 locations. 

Subprograms used : GETBA, SYSTEM, SIO$ 

Error messages : (1) UNASSIGNED MEDIUM, FILE XXXXXXX 

(2) FILE WAS NOT OPENED BY A CALL TO SUBROUTINE OPENMS 

(3) INDEX BUFFER IS OF INSUFFICIENT LENGTH 
Source: Control Data Corporation 
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Responsible person : Mickey G. Rowe, NASA Langley Research Center. D. E. Newell, 
Conlputing and Software, Incorporated. 
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SUBROUTINE READMS ■ ' , 

Language : COMPASS 

Purpose : To read a record on a random access file. 

Use : CALL READMS (U,FWA,N,I) 
where 

U is the logical unit munber. 

FWA is the central memory address of the first word of the record. 

N is the number of words of the record to be transferred. 

I is the record number or record name depending upon the indexing mode set 

by the initial call to OPENMS. 

Restrictions : The file must have been opened by a call to OPENMS. 

Method : The disk address of the record is determined using the index. If n words are 
requested to be transferred and there are m words in the record, where m g n, 
m words are transferred. If m > n, n words are transferred. 

Accuracy : Not applicable. 

References : None. 

Storage : I 3 I 3 locations. 

Subprograms used : GET BA, SYSTEM, SIO$ 

Error messages: (1) UNASSIGNED MEDIUM, FILE XXXXXXX 

(2) FILE WAS NOT OPENED BY A CALL TO SUBROUTINE OPENMS 

(3) RECORD NAME REFERRED TO IN CALL IS NOT IN THE FILE 
INDEX 
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(4) *READ PARITY ERROR* 

(5) SPECIFIED INDEX IN THIS MASS STORAGE CALL .GT. MASTER 
INDEX OR IS ZERO 

Termination is abnormal. 

Source : Control Data Corporation. 

Responsible person : Mickey G. Rowe, NASA Langley Research Center. D. E. Newell, 
Computing and Software, Incorporated. 
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PLOTTING GUIDE 

All plotting in programs SPECPLT and SPLPLT is done on a Calcomp 12-inch drum 
plotter. The Langley Research Center (LRC) Graphic Output System is the postprocessing 
system utilized by both programs; therefore, only a discussion of SPECPLT is included 
herein. 

Before the execution of program SPECPLT, the applications graphic software rou- 
tines discussed later in this appendix are loaded from the system tape onto the file con- 
taining the binary version of SPECPLT. At this point, SPECPLT is executed. The basic 
flow of program SPECPLT follows: 

1. CALL PSEUDO initializes the graphics postprocessor and names the "plot vector 
file" created during execution (CALL PSEUDO (6LSPECTRA)). 

2. CALL LEROY is made to set up parameters necessary for plotting with a liquid 
pen. 

3. Calls are made to subroutines AXES, NOTATE, and NUMBER to draw and label 
the AXES and to annotate each plot. 

4. CALL CALPLT creates the plottii^ arrays for the combined spectrum (or BLH 
and SPL) data. 

5. CALL NFRAME signals the termination of a specific plot. 

6. If more plots are requested, steps 3 to 5 are repeated. If all plotting is com- 
pleted, a terminated call to subroutine CALPLT is made. 

The above mentioned subroutines are documented later in this appendix. The plot vector 
file created during the execution of SPECPLT is itself executed through the loading of the 
postprocessor program. The user can control the execution of the plot vector file through 
the use of the plot control card. The plot control card for program SPECPLT follows: 

PLOT.CALPOST.12 (PVF=SPECTRA.XO= 2.0.Y0=0.5.FSH= 14.FSV= 11) 

/ / SINGLE PLOT MODE. 

LEROY .3MM PEN TYPE BLACK INK COLOR. 

RAG TYPE PAPER. Paper No. 00.// 

The postprocessor program creates the separate plot file for the Calcomp plotter, 
prints messages and statistics on each frame, prints plotting operations controls, and 
permits certain user options. For program SPECPLT the specific user options (listed 
on the plot control card) are: (1) naming the plot vector file (SPECTRA); (2) setting 
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X-origin and Y-origin offsets (2,0 and 0.5 inches); (3) setting horizontal and vertical 
frame sizes (14 and 11 inches, respectively); (4) specifying plot mode (single); (5) spec- 
ifying size and type of pen with desired ink color; and (6) specifying paper type and 
number. / ' 

A typical set of frame statistics and printed operations controls for SPECPLT is 
contained in table XVII. These statistics and controls are supplied to the user at the end 
of the printed output and to the plotter operator to provicie necessary plotting instructions. 

. This. discussion of the plotting techniques ^d use. of the graph postprocessor 
applies; to pr,ogi[am, ^ELP.LT as well as to program .SPECPLTi . The remainder of thist; , 
appendix deals with documentation of the FORTRAN callable CALCOMP plotting subrou- 
tines used by SPECPLT and SPLPLT. The doc\unentation is taken from reference 6 with 
a rearrangement of figures. Additional information concerning the CALCOMP plotting 
subroutines and the LRC Graphic Output System is also attainable from reference 6. 
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SUBROUTINE PSEUDO 


Langiiage: COMPASS 


Purpose : To create and write an appropriately named Plot Vector File, Through linkages 
set up by an initial call to PSEUDO, all subsequent graphics data generated by the user 
will be routed through one of the PSEUDO entry points and written on the Plot Vector 


File. The PSEUDO processor is designed for use with the frame dependent postproces- 
sors described in Section 3.2.3, Volume n of the Computer Pr6gra!mming^‘^nuaf.'^^ ' ' 


Use: CALL PSEUDO 


CALL PSEUDO(FN) 

FN file name left-justified with zero fill. Default file name is SAVPLT. 

Example : 

CALL PSEUDO 

This will establish a Plot Vector File named SAVPLT. 

CALL PSEUDO(6LMYFILE) 

This will establish a Plot Vector File named MYFILE. 

NOTE ; The Plot Vector File (or Files) will usually be written to disk (as opposed 
to tape) and may be postprocessed following user program termination 
via appropriate specification of one or more plot control cards. (See 
Section 3.2.3, Volume II, Computer Programming Manual.) 

Restrictions : (1) An initializing call to PSEUDO (with or without a file name argximent) 
must be made prior to any calls to CALPLT or any other graphics out- 
put routine. 

(2) Every Plot Vector File should be terminated with a 999 pen code, CALL 
CALPLT (0.0, 0,0, 999). The transmission of the 999 code will cause an 
EOF write on the Plot Vector File, and the file will temporarily be 
closed. Thus, any given Plot Vector File will contain only one 999 pen 
code and/or one EOF. 
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(3) To continue plotting execvition following transmission of a 999 code 
to a current Plot Vector File, the user pr<^ram must call the 
. PSEUDO processor to create new Plot Vector File (i.e., CALL 

PSEUDO (6LMYFIL2)). 

Method: In addition to eirtry PSEUDO, this processor contains two other entry points, 
namely PLT9999 and PLT9998. An initializing call to PSEUDO will set PLT9999 into 
the processor switching mechanism (PLOTSW). Subsequent plot data generation will 
then be roided via CALPLT, PLOTSW, and PLT9999 and written on the Plot Vector 
File. The entry PLT9998 is used to record special purpose data from routines NFRAME 
and PLTSTOP. 

Accuracy : 

References : See Section 3.2.3, Volume n. Computer Programming Manual. 

Storage : 2247g locations total for direct subprograms. 

Subprograms used : NUMARG, PLOTSW 

Other coding information: 

Source : E. C. Johnson, NASA Langley Research Center. 

Responsible person: Nancy L. Taylor. 
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SUBROUTINE LEROY/BALLPT 


Language : FORTRAN ^ 

Purpose : To set up the parameters necessary to accommodate plotting with the liquid ink 
pen. Once set, this mode will remain in effect unless a call to BALLPT is given. 

The parameters for plotting with the ballpoint pen are reset by CALL BALLPT. 
This mode is automatically in effect unless there has been a call to LEROY. 

K.-’ i! ■ 7' ■ 

Use : CALL BALLPT . 7 ,. 

CALL LEROY 

Restrictions : The CALL LEROY should only be used with the CalComp. In addition to 
reducing the speed of the plotter for all plotting movements, the number of plot vectors 
in any annotation is considerably increased. 

The CALL LEROY must be made prior to any plotting calls, but after the 
CALL PSEUDO or CALL CDC250. 

Method : 

Accuracy : 

References : 

Storage: 40g locations 6000 Series. 

Subprograms used : CALPLT 

Other coding information : 

Source : E. H. Senn, NASA Langley Research Center. 

Responsible person: Nancy L. Taylor. 
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SUBROUTINE NFRAME 

Language : FORTRAN 

Purpose : To provide users specific means of executing frame advance movements on any 
plotter device via an appropriate frame -oriented device postprocessor. Frame advance 
distances are generally defined to be incremental from current frame origin (i.e., com- 
parable to frame advance executions for the DDI or 252 CRT devices). CALL NFRAME 
is intended to be used as a frame advance mechanism, not as a plot origin offset. 

Use : CALL NFRAME 
or 

CALL NFRAME (H,V) 
where 

H and V are Horizontal (parallel to device X) and Vertical (parallel to device Y) 
distances from the current frame origin. H and/or V must be expressed 
in floating-point inches. 

The short form CALL NFRAME will cause the device postprocessor to execute a 
frame advance move parallel to the device X (horizontal) axis. The movement will be 
(FSH + h) inches, where FSH is the horizontal frame size and h will be an increment 
appropriate to the particular device (0 <h ^ 2"). (See the Formal Parameters List of 
the plot control card. Section 3. 2. 3. 2 for a more complete definition of frame size 
parameters FSH and FSV.) 

When H and V parameters are provided on the NFRAME call, only the following 
values are permissible: 

CALL NFRAME (H,0.) Frame advance H" horizontal 

CALL NFRAME(0.,V) Frame advance V" vertical 

CALL NFRAME(H,V) Frame advance H" by V" 

CALL NFRAME(0.,0.) Return to current frame origin 

CALL NFRAME (H,-V) Frame advance H" by -V" 
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This should be used to execute a frame advance move parallel to horizontal axis 
and to establish a new origin for roll paper plotters and a return to origin for flatbed 
plotters. 

Restrictions : 1. This routine is intended for use only in concert with the frame -dependent 
graphics postprocessors. 

2. This routine must be used in any case which may require AUTO modifi- 
cation of Plot Vector File data by a graphics postprocessor. 

3. The frame advance distances specified by H and/or* V shotld always be 
at least slightly greater than the intended usable frame size. 

4. The H dimension of a frame advance may not be negative (H ^0). For 
purposes of frame stacking, V may be either negative, zero, or positive. 
(See Section 3.2.3 for a definition of frames and frame advances.) 

Method : 

Accuracy : 

References : Computer Programming Man\aal, Volume II, Section 3.2.3. 

Storage : 763 memory words, CDC 6000 series. 

Subprograms used : NUMARG, CALPLT, PLT9998, ABORT 

Other coding information : 

Source : E. H. Senn, NASA Langley Research Center. 

Responsible person: Nancy L. Taylor. 
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SUBROUTINE CALPLT 


Language : FORTRAN 

Purpose : To move the plotter pen to a new location with pen up or down and to signal the 
end of a job segment by incrementing the block address number. 

Use: CALL CALPLT (X,Y,IPEN) 


where 

X,Y are the floating-point values for pen movement. 

IPEN = 2 pen down 

= 3 pen up 

Negative IPEN will assign X = 0, Y = 0 as the location of the pen after 
moving the X,Y (create a new reference point) and will increase the 
block number by one. (This number is that which appears in the dis- 
play at the top of the tape drive on the plotter and identifies the portion 
of the output tape that is being plotted. The block address 001 is writ- 
ten automatically as a result of the initialization PSEUDO processor 
call.) Each block address generally implies a separate page or plot. 

= 999 Writes a terminating block address of 999 to terminate the Plot Vector 
File and all further processing is skipped. 

CALL CALPLT(0.0,0.0,999) 

Restrictions : All X and Y coordinates must be expressed as floating-point inches (actual 
page dimensions) in deflection from the origin. 

A TERMINATING BLOCK ADDRESS (IPEN = 999) MUST BE GIVEN AS THE 
LAST PLOTTING INSTRUCTION BEFORE ENDING A PROGRAM WHICH USES ANY OF 
THE PLOTTER SUBROUTINES; THIS IS TO BE SURE THAT ALL PLOTTER INSTRUC- 
TIONS ARE WRITTEN ON THE PLOTTER TAPE. 

Method : The main subroutine in the graphics language is the CALPLT subroutine. All 
other special purpose subroutines eventually call CALPLT either directly or indirectly. 
This routine moves the pen in a straight line between the present pen position and 
another pen location to which the programer wishes the pen to be moved. 
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In order to cause such instructions to be written, the programer specifies 
the coordinates of the point to which the pen is to be moved and whether the pen is to 
be moved in a raised or lowered position. This is accomplished by the FORTRAN 
instruction: 

CALL CALPLT(X,Y,IPEN) 

Also, the subroutine provides "sequence numbers" on the tape, making it pos- 
sible to afford identification of job segments. The block address 001 is written on the 
first call to CALPLT. Thereafter, if the programer defines a new origin within the 
frame, he need only set the argument IPEN negative. The CALPLT routine then moves 
the pen to X,Y;:;st6res'this location as (0,0), that is, at a new origin; and increases the 
block address by one. 

The following explanation in table form in conjunction with figures 14 and 15 
will illustrate results of various commands to the plotter using the CALPLT subroutine. 
The figures illustrate the position of the pen after moving to its new position as the 
movement from in front of the plotter is observed. Each square represents a square 
inch. The dark circle represents the pen, the dashed lines and letters indicate the 
plotter directions at each change of origin. 


FORTRAN statement 

Subroutine action 

Pen movement 

CALL CALPLT(0.0, 0.0,3) 

The pen is raised and since 
X = 0.0 and Y = 0.0, the 
pen is not moved. 

Pen is only raised. 

CALL CALPLT(2.,2.,2) 

Instructions are written 
causing the pen to be low- 
ered and moved in the +X, 
+ Y direction. 

The peri is moved 
(note directions 
indicated by dotted 
lines) from its 
original position 
(fig. 14(a) consid- 
ered (0,0)) to the 
point (2,2) 

(fig. 14(b)). 

CALL CALPLT(0.,4.,2) 

The pen remains lowered 
and instructions are writ- 
ten to cause movement in 
the -X,+ Y direction. 

Figure 14(c). 

CALL CALPLT(0;.,0.,2) 

Pen remains lowered and 
instructions are written 
to cause movement in the 
-Y direction. 

Figure 14(d). 
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FORTRAN statement Subroutine action Pen movement 

CALL CALPLT(12.,6.,-3) The pen is lifted; the rou- The pen is moved to 

tine computes the nec- the position shown 

cessary steps to move in figure 15(a); 

• t , ' the pen in order to this new position 

approximate closely the is now considered 

line between (0,0) and the origin (note 

; ' ; (12.,6.). These instruc- directions indi- 

tions are written on the cated by dotted 

tape. The stored posi- ' lines). 

tion of the pen is then 

reset to (0,0) and the 

block address 002 is 

written on the tape. 

CALL CALPLT(0.,-7.,2) Instructions are written Figure 15(b). 

to lower pen and to 
move in the -Y 

direction. , 

CALL CALPLT(-5.,-7.,2) Pen remains lowered; Figure 15(c). 

instructions are writ- 
ten to move pen in the 
-X direction. , • 

CALL CALPLT(-5.,0.,2) Instructions are written Top of figure, 15(d). 

CALL CALPLT(0.,0.,2) to move the pen in the 

+ Y direction and then 

, . . . in the +X direction. 

CALL CALPLT(-7.,-3.,-3) Instructions are written to Center of figure 15(d) 

' ^ . . lift the pen, the steps (note directions in 

necessary to move the dotted lines). The. 

pen in order to approid- pen is now raised 

mate closely the line and sitting over the 

between (0,0) and (-7,-3) point indicated in 

are computed and written the figure; aiiy 

on the tape. The stored further plotting 

position of the pen is will begin from 

set to (0,0) and the that point unless 

block address 003 is the pen is moved 

written on the tape. manually beforehand. 
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FORTRAN statement 
: CALL CALPLT(12.,6.,-3) 

Subroutine action 

The pen is lifted; the rou- 
tine computes the neces- 
sary steps to move the 
pen in order to approxi- 
mate closely the line 
between (0,0) and 
(12., 6.). These instruc- 
tions are written on the 
tape. The stored posi- 
tion of the pen is then 
reset to (0,0) and the 
block address 002 is 
written on the tape. 

Pen movement 

The pen is moved to : 
the position shown 
in figure 15(a); 
this new position 
is now considered 
the origin (note 
directions indi- 
cated by dotted 
lines). 

CALL CALPLT(0.,-7.,2) 

Instructions are written to 
lower pen and to move 
in the -Y direction. 

Figure 15(b), ‘ • . , • 

CALL CALPLT(-5.,-7.,2) 

Pen remains lowered; 
instructions are writ- 
ten to move pen in the 
-X direction. 

Figure 15(c). 

CALL CALPLT(-5.,0,,2) 
CALL CALPLT(0.,0.,2) 

Instructions are written 
to move the pen in the 
+ Y direction and then 
in the +X direction. 

Top of figure 15(d). 

CALL CALPLT(-7.,-3.,-3) 

Instructions are written 
to lift the pen, the 
steps necessary to 
move the pen in order 
- to approximate closely 
the line between (0,0) 
and (-7,-3) are com- 
pvtted and written on 
the tape. The stored 
position of the pen is 
set to (0,0) and the 
block address 003 is 
written on the tape. 

Center of figure 15(d). 
(note directions in ' 
dotted lines). The 
pen is now raised 
and sitting over the 
point indicated in 
the figure; any fur- 
ther plotting will 
begin from that 
point unless the pen 
is moved manually 
beforehand. 


45 




APPENDIX D 

Accviracy : ^ . 

References : 

Storage : 251g locations 6000 series. ' • • 
Subprc^rams used : PLOTSW, STRCALL, LOCATE 
Other coding information: 


Sottrce : George C. Salley, NASA Langley Research Center. 
Responsible person: Nancy L. Taylor. 






APPENDIX D 
SUBROUTINE NUMBER 


Language : FORTRAN 

Purpose : To convert a floating-point nvimber to BCD (expressed in F format), and to 
draw the resxilting alphanumeric characters. 

Use: CALL NUMBER(X,Y, HEIGHT, FPN, THETA, NODIGIT) 


where 

X,Y 


are the coordinates in floating-point inches of the left lower corner of the first 
digit of output. 


HEIGHT is the height of the plotted number in floating-point inches. (See NOTATE 
routine.) 


FPN is the floating-point number to be drawn. 

THETA is the angle in floating-point degrees at which the number is to be drawn. 
(See NOTATE routine.) 

NODIGIT is the number of decimal digits to the right of the decimal point for output. 

NODIGIT=l or NODIGIT=0 both specify no decimal places; however, -1 sup 


presses the decimal point. 

Restrictions : The number is restricted to a maximum of 12 significant digits. 

Method : 

Accuracy : The routine truncates the floating-point number at the required decimal place. 
References : 

Storage : 27 I 3 locations 6000 series. 

Subprograms used : NOTATE, ROUND, ALOG 
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Other coding information: Examples: 

FPN= 12.34567891234 

CALL NUMBER(X,Y,S,FPN,0.,-1) 

will draw 

starting location 12 

CALL NUMBEROC,Y,S,FPN,0.,0) 
will draw 

starting location 12 

CALL NUMBER(X,Y,S,FPN,0,,7) 
will draw 

starting location 12.3456789 

Source : George -C. Salley, NASA Langley Research Center. 


Responsible person: Nancy L. Taylor. 
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SUBROUTINE NOTATE- 


Language : FORTRAN , . . , , . 

Purpose: To draw alphanumeric information .for annotetion and labeling and to provide 
special centered s 3 mibols for annotation of data points. 

; _ \ .■f'!' .■ r. - .t, 

Use : CALL NOTATE(X,Y, HEIGHT, BCD, THETA, NOCHAR) ' 
where a .. .c • .> 

X,Y are the floating-point coordinatesiof tho first- character. 


For alphanumeric char acter.sr,ftthe coordinates of the lower lieft‘-hand corner of 
the characters are specified. 

For special symbols 0 to 5, the coordinates of the center of the-^syniborl^ 
specified. 

For special symbols above 6, the coordinates of the lower left-hand corner 
of the character are specified. 


HEIGHT specifies character size and spacing in floating-point inches for a full-size 
character. The smallest possible character is 0.07 inch high. The width 
of a character will be (4/7)* HEIGHT and the space between characters is 
(2/7)* HEIGHT. (See sketch (a).) 


H = HEIGHT 



^ M — H 

^ 5 — 




\ 

/ 


W = (l;/7) « HEIGHT 
S = (6/7) * HEIGHT + WADJ 


Sketch (a) 
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The ith character is plotted at: 

Xj = X + (i-1) (6/7) (HEIGHT) (cos 9 ) 
y. = Y + (i-1) (6/7) (HEIGOT) (sin 9 ) 

BCD , is the string of characters to be drawn and, is usually written in the form: 

nHXXXX — (the same way an alpha message is written using FORTRAN for- 
mat statements). Instead of specifying alpha information as above, the 
beginning storage location of an array containing alphanumeric information 
may be given. 

Special symbols will be drawn when BCD is an integer reference and NOCHAR 
is negative. (See fig. 16.) 

Note: A binary zero in the BCD string will cause truncation of plotting at that 
point, and a normal return to the calling program, 

THETA is the angle in floating-point degrees at which the information is to be drawn. 

Zero degrees will print horizontally reading from left to right; 90^ will 
print the line vertically reading from bottom to top; 180° will print the line 
. horizontally reading from right to left (i.e., upside down); and 270° will 
print vertically reading from top to bottom. 

NOCHAR is the number of characters, including blanks, in the label. A negative 

NOCHAR will produce a single special symbol from the integer reference 
table. (See METHOD for further explanation.) 

Restrictions : Noted imder METHOD. 

Method : The character height is a variable entry parameter to the subroutine NOTATE. 
However, the width -to -height ratio is fixed at 4/7. This is becavise the characters are 
defined by a series of bioctal offset pairs for a 4-by-7 matrix as shown by the examples 
in figure 17. The reference origin for the offset pairs which define each character is 
the lower left-hand corner of the matrix. The X and Y values, which are entry param- 
eters to NOTATE, define the location of the lower left-hand corner of the first character 
to be plotted for this entry to NOTATE. Subsequent characters to be plotted are spaced 
from the previous character origin by 6/7 of the specified character height. 

Figure 16 shows the characters available for the CDC 6000 series computers. 

The figure is divided into two main groups: (1) on the left are 62 symbols related to the 
62 possible Hollerith card codes and (2) on the right is a set of special characters which 
are referred to by integer numbers. The entry parameter NOCHAR tells the subroutine 
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NOTATE which one of these two main groups is being referred to for this entry to 
NOTATE. If NOCHAR is a positive integer, this means that the entry parameter BCD 
is the location of an array of Console Display codes and that NOCHAR characters cor- 
responding to these codes are to be plotted. (See fig. 18 for extended card codes.) If 
NOCHAR is negative, this means that the entry parameter BCD is the location of an 
integer number. This integer number refers to one of the special symbols in the special 
symbol table. Note here that when NOCHAR is positive (normal character pickup), 
more than one character may be plotted by a single entry to NOTATE. With the special 
character pickup (NOCHAR negative), only one character is plotted per NOTATE rou- 
tine entry. 

The special symbol table is divided into two groups. The group a symbol is in 
is based on the value of the integer number referring to the symbol. 

Integer Reference 

Number Subgroup 

0 to 5 A set of six centered symbols. That is, 

the X,Y entry coordinates are the center 
of the character. 

Above 5 Other special symbols whose reference 

origin is the lower left-hand corner 
the character. 

For the first group of special symbols, the centering is achieved by the following 
technique. The symbols are defined by offset values within a 4-by-4 matrix with the 
first and last offset pair being the center of the symbol. The X and Y coordinates 
(which are entrance parameters to the subroutine) are then adjusted by 

XS = X + H/2(sin (9) - cos (9)) 
and 


YS = Y - H/2(sin (9) + cos (9)) 

where 9 is an ar^le of rotation for the character and is an entry parameter to the 
subroutine. For ex^ple, when 9=0, the reference origin is shifted left and down- 
ward by one-half the character height. This results in the original X,Y location 
becoming the center of the symbol since it is centered in a 4-by-4 matrix. Of course, 
all offset values for the character are multiplied by the character height to dimension 
the symbol properly. To provide annotation at any angle of orientation, each offset 
pair for all the offset pairs for each character is transformed as follows: 


51 



APPENDIX D 
XO 
YO 
X 
Y 
XS 
YS 
XS 
YS 

Another option on entering the NOTATE roiitine is provided. If the X and/or Y 
values are 999., the plotting of symbols is resumed at the coordinates where it left off 
on the last entry to NOTATE. For example, if the first entry to NOTATE is 

CALL NOTATE (X,Y,0. 14 ,3HABS ,0.0,3) 

and the next entry is 

CALL NOTATE (999. ,999. ,0. 14 ,10,0.0,- 1) 

the following symbols will be plotted 

ABS V 

The symbol height and the character height were both specified as 0.14. 

Another method of determining where the pen left off on the last entry to NOTATE 
or any other plotting routine is to use the routine WHERE (Section 3.2.4.100). WHERE 
returns the current value of X,Y and pen code. 

CALL NOTATE(0.,0.,.20,3H100, 0.0,3) 

CALL WHERE (X,Y,IPEN) 

CALL NOTATE(X,Y,.20,21,0,0,-1) 

The following symbols will be plotted. 

100 z 


= an X offset value 
= a Y offset value 
= reference origin of the character 
= reference origin of the character 
= final plot coordinate for this offset 
= final plot coordinate for this offset 
= X + H(XO*COS(0):- YO:*SIN(0)) -u. . 
= Y + H(XO*SIN(0) + YO*COS(0)) 
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Accvtracy : 

References: 

Storage : 1152g locations 6000 Series. 

Svibprograms used: CALPLT, CNTRLN, DECODl, DECOD2, SIN, COS 

Other coding information: . - 

Source: George C. Salley, NASA Langley Research Center. 


Responsible person: Nancy L. Taylor. 


appenMdc b ‘ 

SUBROUTINE, PNTPLT . ,;v ;., f , : 


Language : FORTRAN . 

Purpose : To draw NASA Standard Plot symbols centered on a given coordinate value. 
Use : CALL PNTPLT (X,Y,ISYM, IS) 
where 

X is the X coordinate for the centered symbol in floating-point inches. 

Y is the Y coordinate for the centered symbol in floating-point inches. 

ISYM is an integer specifying the symbol to be used. (See figs. 19 and 20.) 

= 21 for a point 
= 22 for a plus sign + 

IS is an integer value specifyii^ the size symbol to be used. , . 

= 1 small 
= 2 medivun 
= 3 large 
(See fig. 19.) 

Restrictions: 


Method : 

Accuracy : A positive integer value for ISYM in the calling sequence will produce symbols 
of the same quality as in figure 19. A negative integer value will produce s^mibols of 
less quality but will result in a considerably faster computer run. 

References : 

Storage : 506g locations 6000 Series. . 

. Subprograms used : CALPLT, CIRCLE, CNTRLN 
Other coding information: 
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Source ; Qeorge C, Salley, NASA Langley Research Center. 
Responsible perswi ; Nancy L. Taylor. 
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SUBROUTINE AXES 

Language : FORTRAN 

Purpose : To draw a line, to annotate the value of the variable at specified intervals with 

or without tic marks, and to provide an axis identification label. 

Use : CALL AXES(X,Y,THETA,S,ORG,SFX,TMAJ,TMIN,BCD,HEIGHT,NOCHAR) 

where 

X,Y are the coordinates in floating-point inches of the starting point of the axis 
with reference to the plotting area origin as established by CALPLT. 

THETA is the angle of rotation measured counterclockwise from the X-axis in - 
floating-point degrees. Normally, THETA is 0° for an X-axis and 90° 

. . , for a Y-axis. 

S is the length of the axis in floating-point inches. Should be a multiple of 

TMAJ. 

+S will generate tic marks. - 

-S will eliminate tic marks. 

ORG is the functional value to be assigned to the origin (i.e., the value of the first 
scale) in floating point. ' 

SFX is the adjusted scale factor for the array to be plotted (change in value per ' 
inch). 

NOTE: Values of ORG and SFX which will produce a 'reasbiiable scale may? 
be calculated using subroutine ASCALE or BSCALE. 

TMAJ is the distance in floating-point inches for major tic marks (0.25 inch high). 

Numbers are placed on the axis at the major tic marks in accordance with ’ " 
the., values of ORG and SFX. The numbers written along the axis are 
adjusted to be between 1000.00 and 0.01 in magnitude. Immediately after 
the last number on the axis is placed the caption xlO®^, where exp is 
the required exponent. 
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If the values are integer multiples, the decimal point and decimal places are 
eliminated. A negative TMAJ will cause the actual value to be written 
instead of the adjusted value. 

TMIN is the number of divisions per inch in floating point for minor tic marks 

(0.125 inch high). To eliminate minor tic marks the following may be used: 

TMIN = 0. 

BCD is the character label for the axis (see NOTATE routine). 

HEIGHT is the height of the full-size characters in the BCD title. Numbers at the tic 
marks will be (0.75 *HEIGHT) high. HEIGHT is in floating-point inches. 

If HEIGHT = 0., all annotation will be eliminated. 

NOCHAR ih an integer specifying the number of characters in BCD title. A negative 

NOCHAR places the annotation on the clockwise side of the axis and a posi- 
tive NOCHAR places the annotation on the coimterclockwise side of the axis. 
NOCHAR = 0 is not allowed. If it is desired to have no label, then the BCD 
parameter should be IH, and NOCHAR either +1 or -1. 

Restrictions : Only perpendicular axes are recommended. 

Method : 

Accuracy : 

References : . '■ ' 

Storage : .. 1451ft locations 6000 Series. 


Subprograms used: CALPLT, NOTATE, NUMBER, ROUND, SIN, COS, WHERE 

Other coding information : Examples: 

- CALL AXES(X,Y,0.0, 2.0, 0.0, .001,+ !., 4.0,1HX,0.2,-1) 


Starting Location I — I — I — I — I — L 


0 


.01 . 0 $ X 10 

X 


-1 
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CALL AXES(X, ¥,180.0,2.0,1.0, 1.0,-!., 0.0, IHX, 0.2, +1) 

I _ 


1 


Starting Location 


X 


CALL AXES(X,Y,90.0,2.0,0.0,10.0,-1.,2.0,1HY,0.2,+ 1) 

20 

>-10 — 


Starting Location 


oL 


CALL AXES(X,Y,270.0,2.0,0.0,0.5,-1.,10.0,1HY,0.2,-1) 
Stutlng Location — • 0 , 



Source : George C. Salley, NASA Langley Research Center. 

QUESTIONS ON THE USE OF THIS PROGRAM SHOULD BE DIRECTED TO THE ACD 
PROGRAMER SUPPORT GROUP, EXTENSION 3548. 
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NUMERICAL SUBROUTINE DOCUMENTATION 

Appendix E provides dociimentation of the numerical subroutines used in program 
RNPPE4, Subrovrtines SPLS and CSIUNI are used by computing blade-loading data by 
integration of the steady loading distribution over all or part of the chord. Subroutine 
BSSLS is used in evaluating Bessel fimctions in Wright's solution. 


59 


/ 


APPENDIX E 
SUBROUTINE SPLS 


Language : FORTRAN 

pX(KJ) 

Purpose: To compute \ L(X) dX by a cubic spline approximation where X(KI) and 
'^X(KI) 

X(KJ) are the first and last points of the interval and i = 1, 2 , . . NCVS. 

Use : CALL SPLS(MNPTS, N, NCVS, X, Y, KI, KJ, PROXIN, IW, WK, lERR) 

MNPTS An input integer specifying the maximum number of values in the independent 
variable array as stated in the dimension statement of the calling prc^ram. 


N An input integer specif 3dng the nvimber of points in the independent variable 

array. N s MNPTS. ^ 

NCVS An input integer specif3n.hg the nximber of dependent variable tables associated 
with the independent variable. 

X A one-dimensional input array containing the independent variables. X should 

be dimensioned by at least N in the calling program. 

Y A two-dimensional input array containing the dependent variables. The array 

Y is dimensioned with variable. dimension in the subroutine; therefore, Y 
mxist.be dimensioned in the calling prc^ram with first dimension MNPTS 
and second diniensibn at least NCVS. 

KI An inpvit integer specifying the X array index containing the lower limit of 

integration. 


KJ An input integer specifying the X array index containing the upper limit of 

integration.' 


pX(KJ) 

PROXIN A one -dimensional output array in which \ f(X) dX is stored for each 

‘^X(KI) 


dependent variable, array. 

PROXIN must be dimensioned by at least NCVS in the callii^ prc^ram. 
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IW An input integer used for initialization. On first entry into SPLS the user 

must set IW = -1. The routine will then test the independent variable array 
to determine if it is increasing, and, also, compute certain values pertain- 
ing to the X and Y arrays. 

These values will not change xmless either the X or Y array is replaced. 

WK An array used by SPLS as a work area. WK must be dimensioned at least 
2(N X NCVS) + 8N. This array should not be used elsewhere in the 
program. 

lERR An output error integer 
= 0 Normal retimn 

= 1 The independent variable array is not increasing. An error message will 
be printed by SPLS. "INDEPENDENT VARIABLE ARRAY NOT INCREAS- 
ING IN SPLS AT POSITION HII X = XXXX,XXXX." 

Upon return to the calling program, the parameter lERR should be tested. 

Restrictions : All arrays must be floating point. The values in the independent variable 
array must be increasing. 

Method : The method used in SPLS is that of the reference. The reference gives the 
derivative of a matrix equation relating the second derivative of a imivariate spline 
function at the given values of the independent variable to the values of the function at 
these values of the independent variable. Values of the second derivative are assumed 
to be zero at the end points. The matrix equation is tridiagonal and is solved by the 
Thomas algorithm which is equivalent to Gaussian eliniination without pivoting. Expres- 
sions are derived for the integral in terms of the spline function and its second deriva- 
tive at the nodes of the specified interval. 

Accttracy : Cubic spline functions yield a best fit to a set of data. When fitting data 

derived from an analytical function, the cubic spline function yields an approximation 

of that function to an order of h where h is the interval size of the independent vari- 

5 

able of the spline fit. The accuracy of the integral is of an order of h . Care should be 
taken when fitting data where large gradients exist. Large gradients may cause extreme 
oscillations in the spline function. 

References : Greville, T. N. E., "Spline Functions, Interpolation and Numerical Quadra- 
ture," Mathematical Methods for Digital Computers, Vol. II, pp. 156-168, John Wiley 
& Sons, 1967. 
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Storage: 556 r locations. 

Subprograms used : None. 

FORTRAN functions : None. 

Other codii^ information : It is recommended that the independent variable array contain 
at least four points, N 2 4. 

EXAMPLE: 

To compute the integral from X(KI) to X(KJ) for two dependent varia- 
ble tables, the coding would be as follows: 

DIMENSION X(1Q), Y(10, 2), PROXIN(2), WK(120) 

■ ' • 

MNPTS =10 
N= 10 
NCVS =2 
C 

C TO COMPUTE THE INTEGRAL FROM X(l) TO X (3) 

KI= 1 
KJ = 3 
IW = -1 

CALL SPLS(MNPTS,N,NCVS,X,Y,KI,KJ,PROXIN,IW,WK,IERR) 
IF(IERR.EQ.0) GO TO 10 


10 CONTINUE 

C 

C TO COMPUTE THE INTEGRAL FROM X(2) TO X(7) 

KI = 2 
KJ = 7 

CALL SPLS(MNPTS,N,NCVSpC,Y,KI,KJ,PROXIN,IW,WK,IERR) 
IF(IERR.EQ.O) GO TO 11 


11 CONTINUE 


62 



APPENDIX E 

Soiirce : NASA Langley Research Center, Computer Mathematics and Programing 
Branch, 

QUESTIONS ON THE USE OF THIS PROGRAM SHOULD BE DIRECTED TO THE ACD 
PROGRAMER SUPPORT GROUP, EXT. 3548. 
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SUBROUTINE CSIUNI 

Langtiage : FORTRAN 

Purpose : To perform a cubic spline interpolation on a univariate function for any number 

of different dependent variable arrays associated with the independent variable array. 

Use : CALL CSIUNI(MNPTS,N,NCVS,MMAX,M,X,Y,T,F,IW,WK,IERR) 

MNPTS An input integer specifying the maximum number of values in the independent 
variable array as stated in the dimension statement of the calling program. 

N An input integer specifying the number of values in the independent variable 

array, N ^ MNPTS. 

NCVS An input integer specifying the number of dependent variable tables associated 
with the independent variable. 

MMAX An input integer specifying the maximum number of values at which interpo- 
lation is desired as stated in the dimension statement of the calling program. 

M An input integer specifying the number of values to be interpolated on this 

entry into CSIUNI, M s MMAX. 

X A one -dimensional input array containing the independent variables. The 

array X should be dimensioned by at least N in the calling program. 

Y A two-dimensional input array containing the dependent variables. The array 

Y is dimensioned with variable dimension in the subroutine; therefore, Y. 
must be dimensioned in the calling program with first dimension MNPTS and 
second dimension at least NCVS. 

T A one-dimensional input array containing the values of the independent variable 

for which values of the dependent variable are desired. The array T must 
be dimensioned by at least M in the calling program. 

F A two-dimensional output array in which CSIUNI stores the values of the fvmc- 

tion at the M values of the independent variable. The array F is dimensioned 
with variable dimension in the subroutine; therefore, F must be dimensioned 
in the calling prc^ram with first dimension MMAX and second dimension , at 
least NCVS. 
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IW An inpvit-outp\it integer. 

INPUT: IW is the initialization integer. On first entry into CSIUNI the viser 

must set IW = 1. This will cause the independent variable array to be 
tested to determine if it is increasing. Also, certain values pertain- 
ing to the X and Y arrays will be computed. These values will not 
change unless either the X or Y arrays are replaced. 

OUTPUT: IW is an index pointer indicating that Xj^ = ^0 = ^IW+ !• 

next call to CSIUNI, the previous IW is used to begin the search 
' for the interval containing the interpolation point. Linear extra- 
polation is provided; therefore, IW = 0 indicates lower end extra- 
polation, and IW = N indicates upper end extrapolation. 

WK An array used by CSIUNI as a work area. WK must be dimensioned at least 

3(NXNCVS) + 8N. 

lERR An output integer error code 

= 0 Normal return 

= 1 The independent variable array is not increasing. CSIUNI will print ' 
'INDEPENDENT VARIABLE ARRAY NOT INCREASING IN CSIUNI AT POSI- 
TION mi,x=xxxx,xxxx." 

Upon return tb the balling program, the parameter lERR should be tested. 

Restrictionst All arrays must be floating point. The values of the independent variable 
array must be increasing. ' 

) 

Method : The method used in CSIUNI is that of the reference. The reference gives the 
derivative of a matrix equation relating the second derivative of a univariate spline 
function at the given values of the independent variable to the values of the function at 
these values of the independent variable. Values of the second derivative are assumed 
to be zero at the end points. The matrix equation is tridiagonal and is solved by the 
Thomas algorithm, which is equivalent to Gaussian elimination without pivoting. 

Accuracy : Cubic spline functions yield a best fit to a set of data. When fitting data derived 
from an analytical fxmction, the cubic spline fvinction yields an approximation of that 
function to an order of h^ where h is the interval size of the independent variable of the 
spline fit. When fitting arbitrary sets of data, care should be taken in interpolating 
between the nodes to assure that the spline fit is satisfactory to the user. This is 
especially important when fitting data where large gradients exist. Large gradients 
may cause extreme oscillations in the spline fimction. 
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References : Greville, T. N. E., "Spline Functions, Interpolation and Numerical Quadra- 
ture," Mathematical Methods for Digital Computers, Vol. n, pp. 156-176, John Wiley & 
Sons, 1967. 

Storage : 1014g. 

Subpr<^rams used : None. 

FORTRAN functions : None. 

Other coding information : Linear extrapolation is available but should be used with care. 
It is recommended that the independent variable array contain at least four points, 

N 14. 

EXAMPLE: 

To interpolate for two dependent variable tables, the coding would be 
as follows: 

DIMENSION X(10),Y(10,2),T(100),F(100,2),WK(140) 


MNPTS =10 
N= 10 
NCVS = 2 
MMAX = 100 
C 

C TO INTERPOLATE FOR 50 VALUES 
C 

M = 50 
IW = -1 

CALL CSIUNI (MNPTS,N,NCVS,MMAX,M,X,Y,T,F,IW,WK,IERR) 
IF(IERR.EQ.O) GO TO 10 


10 CONTINUE 
C 

C TO USE A NEW X ARRAY OF 5 VALUES 
C 
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-:.N =5 
• IW = -1 

CALL CSIUNI(MNPTS,N,NCVS,MMAX,M,X,Y,T,F,IW,WK,IERR) 
IF(IERR.EQ.O) GO TO 100 


100 CONTINUE 

Source : NASA Langley Research. Center, Computer Mathematics and Programing 
Branch. 


QUESTIONS ON THE USE OF THIS PROGRAM SHOULD BE DIRECTED TO THE ACD 
PROGRAMER SUPPORT GROUP, EXT. 3548. 
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SUBROUTINE BSSLS ... 

Language : FORTRAN 

Purpose : To compute Bessel functions of the first kind, Jj»j(X) for a positive real argu- 
ment, from order zero to order N-1. 

Use : CALL BSSLS(X,F,N) 

X ‘ ^ - An input variable specifying the argument for wMch the Bessel functions, are : ; 

to be evaluated. r ji > - 

N An input integer specifying the maximum order Bessel function desired. 

F A one dimensional output array containing the Bessel functions from order 

zero to order N-1. Because of the recursion technique employed by the 
routine, the user must reserve at least 

: • ' . N + 28 if N 5 1.5*[X] 

i.5*[X] + 28 if N< 1.5*[X] 

'• locations for F. [x] is the integral part of the argument X. 

Restrictions : N is assumed positive and X is assumed non-negative. Labeled COMMON 
with FIX for a block name may not be used. This identifier is used by BSSLS. 

Method : BSSLS is a Langley Research Center (LRC) mathematics library system subrou- 
tine BJIR, C3.2 (see program ref. 1) modified to allow computation of Bessel functions of 
order greater than 30. 

A backward recursion technique is used as suggested in program reference 2. 

An arbitrary value (small) is assigned to a large order Bessel function determined by k, 
a sufficiently large number. Assuming Jjj(x) + 0 and Jjj+i(x) = 0, the recursion formula 

is used to compute all of the Bessel functions from W down to Jq(x) of the same 
given argument. Finally the equation 

Jq(x) + 2J2(x) + 2J^(x) + . . . = 1 

is used to normalize the resulting numbers to their correct values. 


68 



APPENDIX E 


Accxiracy : A check of the rovitine was made with the following arguments: X = 0.0, 0.1, 
1.0, 5.0, 10.0, 50.0, and 100.0. Selected values for N were N = 0, 1, 2, 10, 20, 30, 

40, 50, and 100. Various combinations of X and N were tried and the results compared 
with the table entries of program reference 2. The Bessel functions computed maintain 
an accuracy of at least 9 digits as compared with program reference 2. 

It is expected that the routine can handle orders N > 100 and arguments 
X < 0.1 and X > 100; but available tables did not include these values. 

References : (1) Langley Research Center, Computer Programming Manual; Volume I, . 
Section C3.2, pages 2-5. 

(2) I. Stegim and M. Abramowitz, Handbook of Mathematical Functions; U.S. 
Department of Commerce, National Bureau of Standards Applied Mathe- 
matics Series 55, June 1964, pp. 392, 394, and 407. 

Storage : 117g locations. 

Other coding information : (1) If high-order Bessel functions are computed for small argu- 
ments, an exponent imderflow may result. 

(2) The results Jq{x), J^(x), . . ., J^(x) . . ., Jj^_j(x) are stored 
as follows. 

' ' BJ(1) = Jq(x) 

BJ(2) = Jj^(x) 


BJ(I) = Ji_i(x) 


BJ(N) = Jn_i(x) 

Subprcgrams used : None. 

FORTRAN frmctions : None. 

Source : NASA Langley Research Center, Noise Control Branch, Robert Hosier. 
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PROGRAM USAGE 
Operational Environment 

The five programs making up the Stationary Rotor Rotational Noise Prediction. 
Program are written in FORTRAN. All program, testing and case running were done on 
the CDC 6400 and CDC 6600 computer systems. The CDC 6400 and CDC 6600 machines 
have 131,900 word memories and use 60 bit words. 

The operating system is the Langley Research Center (LRC) SCOPE Operational 
System versions 3,3. A RUN 2.3 Compiler is employed by‘the ’^bperhtihg; system, j 

Program Job-Stepping 

In order to reduce program overhead and to increase program efficiency, the 
Stationary Rotor Rotational Noise Prediction Package is divided into five programs. The 
five programs are related, but are independent logical steps in predicting the rotor noise. 

The programs are independent in the sense that all five perform a function without 
"calling" any of the others; the programs are related in the sense that a file may be . 
passed from one program to another. As an example, the output file (the combined trans- 
ducer spectrum data) of program RAMANI can be used as an input file to program THAI®. 
This technique of program communication throigh files is called job-stepping and is 
accomplished through the use of job control cards. 

Rimning the five program package requires the use of certain peripheral equipment . 
including a card reader, a line printer, a magnetic tape drive, disk storage drives, a 
data cell drive, and a plotter. The specific types of peripheral equipment utilized are . 
described in table XVni. The various allowable program job-step combinations together 
with the correspondiig control card and program deck setups are described in the next - 
section. 


Job Control and Program Deck Setups ; ■ 

The five programs making up the Stationary Rotor Rotational Noise Prediction Pro- 
gram can be rim in a variety of program combinations. Through the correct use of job 
control cards, the following combinations are possible: 

RAMANI 

SPECPLT 

RAMANI -SPEC PLT 
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RNPPE4 
TRANS-RNPPE4 
RNPPE4-SPLPLT 
TRANS-RNPPE4-SPLPLT 
RAMANI-RNPPE4 
RAMANI-TRANS-RNPPE4 
- ,R^ANI-SPECPLT-RNPPE4 - 

RAM ANI-SPECPLT -TRANS -RNPPE4 - 
RAMANl- TRANS- RNPPE4- SPLPLT 
RAMANI-SPECPLT-TRANS-RNPPE4-SPLPLT 

In choosing the appropriate combination(s) to be run, considerations should be given 
to the type of data (measured or theoretical), to the reliability of measured data, to spe- 
cific output needs, and to the necessity of plotting. 

The standard sequence is a two-combination process. The first combination 
involves job-stepping programs RAMANl and SPECPLT in a separate run to check the . 
validity of the combined transducer spectrum data before proceeding to the actual rotor . 
noise prediction. The second combination involves job-stepping programs TRANS- 
RNPPE4 -SPLPLT, a separate run to predict the rotor noise and to generate the sound- 
pressure-level plots. If the user is relatively confident in the accuracy of the measured 
transducer data, the ohe-step process of job-stepping prc^rams RAMANI-SPECPLT- 
TRANS-RNPPE4-SPLPLT into one run saves time and reduces program overhead. 

This section contains job control and program deck setups for the three major pro- 
gram combinations mentioned above. The file descriptions and manipulations are dis- 
cussed later. 

In order to eliminate the handling of card source decks, the five programs have been 
placed on two data cells. Programs RAMANl and SPECPLT (binary and source versions) 
are stored on data cell Z4186, and programs TRANS, RNPPE4, and SPLPLT are stored 
on data cell Z4188. The job control cards and program setups for both card and data cell, 
input for the combinations RAMANl -SPECPLT, TRANS-RNPPE4-SPLPLT, and RAMANI- 
SPECPLT-TRANS-RNPPE4-SPLPLT are explained in tables XDC to XXIV. Although file 
descriptions and manipulations are discussed later, certain general observations about 
the preceding job control card setups should be made. 

A program source listing, together with corresponding load and cross reference 
maps, are generated for all combinations nm from the source versions. Neither pr(^ram 
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listings nor corresponding maps are generated for program combinations rim when using 
binary versions. 

If the user desires the source version instead of the binary version when running 
from data cell, the following changes must be made (see tables XX, XXn, and XXIII): 

1. The four control cards 

REWIND (BN FILE) 

FETCH (Z418_, , SOURCE) 

' ..;RUN (s', ,,SFILE, BN.FILE) ^ : . . ;< , .:.r ' 

REWIND (BNFILE) , 

replaced the previous card 
FETCH (Z418_, , BINARY). 

2. Following the first 7/8/9 card the user must place one record containing pregram 

modifications, if any, for each source program fetched. Program modifications are dis- 
cussed in reference 6. . 

File Description and Manipulation 

Magnetic tape assignments (input - output files) .- Tape 8 is the assigned name 
of the input tape to RAMANI; the tape contains the transducer spectrum data for a given 
run. At present, this tape is generated by a fast Fourier Transform Program. Tape 51 
is the assigned name of the output tape containing the combined transducer spectrum data. 
This tape is generated by program RAMANI. This same tape is assigned name TAPE 8 . 

when used as input to program TRANS.^ The plotting tapes generated by programs 
SPECPLT and SPLPLT are assigned file names (PLT ) by the plotting postprocessor 
and not by the user. 

Other program files .- The names RAMANI, SPECPLT, TRANS, RNPPE4, SPLPLT 
are the binary file names of the programs with corresponding names. Tape 20 is the name 
assigned to the disk file being used as a random access file. Tape 7 and Tape 4 are the 
disk files corresponding to the magnetic tape input and output files. Tape 8 and Tape 51, 
respectively. PLOT is the binary version of the postprocessor program necessary in 
generating a plot tape. 

File manipulation. - The scope operating system is a file- oriented system. Because 
of this fact, the user must have a general knowledge of the file manipulation. All files 
used in the execution of the SRRNPP are binary files. The file -manipulation process is 
similar regardless of the program combination being nm and regardless of whether the 
source deck is loaded from cards or whether the binary version is loaded from data cell. 
The first step is to store the binary versions of all programs being considered on separate 
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files corresponding to their program names. (This step assvimes compilation is success- 
ful, if source decks are used.) The second step consists of requestii^ the input file from 
Tape 8; copying the input file to disk (Tape 7), dropping the magnetic tape, and using 
Tape 7 as to the actual input file. At this point, the binary version of the program is 
loaded and executed. A disk output file (Tape 4) is created; if necessary, the output file 
is copied to a magnetic tape (Tape 51) for future use. The first job-step is now completed. 

If another job-step is to be executed, the output. file (Tape 4) can be rewound and 
used as an input file to the next job-step. The. random access file (Tape 20) can be used 
in a similar manner with no rewind being necessary. This program communication 
through input and output files is the essence of the job-stepping techniques. 

If one of the two plotting programs is to be run; the binary version of the graphic 
software is loaded by the system on the same file as the program binary before execution. 
Once this move is accomplished, the plotting program is executed. Before the actual plot 
tape is created, the graphic output postprocessor program (plot) must be loaded and exe- 
cuted. Appendix C describes the plotting techniques inmore detail. The process can 
continue or terminate at any time dependii^ on the number of job-steps to be executed. 

The preceding description of file manipulation, although general in nature, describes 
the technique used in the running and execution of all program combinations of the SRRNPP, 

Program Performance and Memory Requirements 

Estimates of central processor time, peripheral processor time, and operating sys- 
tem calls for the three major program combinations. on a typical problem are approxi- 
mated in table XXV. 

The field length required for the execution of each of the five programs follows: 


Program 

Required field length (Octal) 

RAM AMI 

43625 

SPECPLT 

41211 

TRANS 

44525 

RNPPE4 

44603 

SPLPLT 

24651 


If program job-stepping is employed, any combination of two or more programs can be 
run in a single job at a required field length of less than 50 K (Octal). It is important to 
note that the automatic field-length reduction performed at load time by the operating sys- 
tem must be suppressed by the job control card NORFL if job-stepping is employed. 
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Performance times and statistics vary significantly on the problem being run. The 
number of transducers, the number of spectrum points per station, the method for deter- 
mining the blade-loading (BLH) data, and the amount of plotting generated are' the major 
factors determining program performance. The following times and statistics are 
based on the following problem. Transducer data are input from 7 transducers with 
1840 spectrum-data points per transducer. The spectrum-data combining results in 
4 combined positions generated by 3 additions and 1 scaling. Four pairs of combined 
amplitude and phase plots are generated. Seven sets of sound pressure level (SPL) data 
are computed based on 5 sets of nonintegrated BLH data and 2 sets of integrated BLH data. 
Seven SPL plots are generated and two pairs of integrated BLH coefficients and phases 
are generated. 

The figures shown in table XXV are based on the binary version of all programs 
being loaded for a data cell. If the source programs are loaded from card decks, the 
CPU time slightly increases because of compile time, the PPU time significantly decreases 
because of the absence of the data cell, and operating system (OS) calls remain nearly 
constant. 

I 

All figures are based on the CDC 6600 computer system. 
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PROGRAM LISTING 


PROGRAM RAMANI UNPUT=201 »0UTPUI=201 »IAPE5=I NPUT , TAPE6=0UTPUT , RAMAOOiO 

>rAPE7=3001.TAPEA=°300if TAPE20=201I RAHA0Q20 

CA«**a«>««****a*«««a««*4i«*«*«««*««**«*«««*««**««P****««a*«***«*****a*a***RAMA0030 


c* 

PURPOSE 



4RAMA0040 

c* 

TO COM8INE (BY AOOiTION OR SCALING) THE SPECTRUM 

4RAMA0050 

c* 

DATA OBTAINED EPOM THE TRANSDUCERS PLACED AT THE 

4RAMA0060 

c* 

ANTRACKS* 

POSITIONS ALONG THE CHORD 

4RAMA007D 

c* 



- 

•RAMA0080 

c* 

NAMELIST INPUT PARAMETERS 

4RAMA009D 

c* 

NTRACKS 

- 

NUMBER OF TRACKS OF TRANSDUCER SPECTRUM 0ATA4RAMA010O 

c* 



( i:SNTRACKSS24) 

•RAMAOILO 

c* 

DBREF 

- 

AN ARRAY DIMENSIONED 24 IFOR THE MAXIMUM 

4RAMA0120 

c* 



NUMBER OF TRANSDUCER STATIONS) CONTAINIG THE4RAMA0130 

c» 


- 

DECIBEL REFERENCE FREQUENCY CONSTANTS 

4RAMA0140 

t* 



(DBREFI I)=0.0 IS DEFAULT VALUE 1S1K24) 

4RAMA0150 

t* 

NPRINT 

- 

NUMBER OF COMBINED SPECTRUM DATA RECORDS 

4RAMA0160 

c* 



(FREQUENCY t AMPLITUDE. PHASE) TO BE PRINTED 

4RAMA0170 

c* 



FOR EACH POSITION 

4RAMAOiaO 

c* 



1NPRINT=50 IS DEFAULT VALUE) 

«<RAMAD190 

t* 

NSK.1P 

- 

NORMALLY INPUT AS ZERO. IF SPECTRUM DATA 

4RAMA0200 

c* 



FROM BEGINNING STATIONS IS TO BE SKIPPED, 

*RAMA0210 

c* 

A 


(TFiERE ARE 2*1 1 NUMBER OF SPECTRUM DATA POINTSRAMA022D 

c* 



PER STATION - I) / 1500 1 ) 4- 1 TAPE REC0RDSRAMA02 30 

c* 



PER TRACK) 

4RAMA0240 

c* 



(NSK1P=0 IS OtFAULT VALUE) 

WRAMA0250 

c* 

MTRALKS 

- 

NUMBER CF SPECTRUM DATA STATIONS AFTER 

4RAMA0260 

c* 



COMBINING (ADDITION UR SCALING) PLUS THE 

4RAMA0270 

c* 



NUMBER OF STATIONS TO BE SKIPPED. 

«RAMAD280 

L* 



1 iSMTRACKS^24) 

«RAMA0290 

c* 

ISTN, 

- 

TRO INPUT ARRAYS DIMENSIONED 24 (FOR THE 

4RAMA0300 

c* 

JSTn 


MAXIMUM NUMBER OF TRANSDUCER STATIONS) 

4RAMA0310 

c* 

' 


DESCRIBING THE COMBINING SEQUENCE. 

»RAMA0320 

c* 



(1) 1STN(K)#JSTN(K) (JSTN(K)>0) 1SK^24 

*RAMA0330 

(.* 



SPECTRUM DATA FROM TRANSDUCER TRACK NUMBERS*RAMA0340 

L* 



ISTNIK) AND JSIN(K) MILL BE AOOEU. 

4RAHA0350 

c* 



(2) ISTN(KI=JSTN1K) ISKS24 

4RAMA03'60 

c* 



SPECTRUM DATA FROM TRANSDUCER TRACK NUMBER 

*RAMA037b 

c* 



ISTNIK) hill be SCALED BY THE FACTOR WGHT. 

*R'AMA03db 

c* 



(3) 1STN(K)A0 AND JSTN(Ki-0 1SKS24 

♦RAMA0390 

c* 



SPECTRUM UATA FROM TRANSDUCER TRACK NUMBER 

4RAMA0400 

c* 



ISTMK) WILL BE SKIPPED. 

♦RAHA0410 

c* 



KtSTRICTIUNSs ISTN ARRAY MUST BE IN STR ICTLY*RAHA0'420 

c* 



INCREASING ORDER AND 1 STNI I ) EJ STN ( J ) FOR 

4RAMA0430 

t* 



lEJ . 

4RAMA0440 

c* 



(ISTMK)=0 IS OEFAULI VALUE 1SKS24) 

«RAMA0450 

c* 



USTN(K)=0 IS DEFAULT VALUE 1SKS24) 

4RAMAa46b 

c* 

RGHT 

- 

A SCALING FACTUR BY WHICH SPECTRUM DATA FR0M*RAMA0470 

c* 



AN UNAODEO STATION HILL BE WEIGHTED 

4RAMA048D 

c* 



IF HG)tT=1.0, THE DATA WILL BE LEFT AS IS 

4RAMA0490 

c* 



(WoHT=l.O IS DEFAULT VALUE) 

♦RAMA0500 

c* 

ioptn 

- 

0 COMBINED SPECTRUM DATA WILL BE OUTPUT 

♦RAMA0510 

c* 



TO MAGNETIC TAPE ONLY. 

*RAMA0520 

c* 



1 COMBINED SPECTRUM UATA WILL BE OUTPUT 

4RAMA0530 

c* 



TO RANDOM ACCESS FUR LATER USE AS 

4RAMA0540 

c* 



WELL AS MAGNETIC TAPE. 

♦RAMA0550 

c* 



UOPTN=l IS DEFAULT VALUE) 

4RAMA0560 

c* 

NTAPE 

- 

1 ONE TAPE IS USEO TO INPUT SPECTRUM UATA 

i»RAMA0570 

c* 



2 TWO TAPES ARE USED TO INPUT SPECTRUM OATA4RAMA0580 

c* 



(NTAPE=l IS DEFAULT VALUE) 

♦RAMA0590 

t* 

LU 

- 

AN ARRAY DIMENSIUNEU 24 I FOR THE MAXIMUM 

«RAMA0600 

c* 



NUMBER CF TRANSDUCER STATIONS) CONTAINING 

♦RAMA0610 

c* 



THE STEADY LOADING FREQUENCY FOR EACH TRANS 

-♦RAMA0620 


100000 

200000 

300000 

400000 

500000 

600000 

700000 

800000 

900000 

1000000 

IIOOOOO 

1200000 

1300000 

1400000 

1500000 

1600000 

1700000 

1800000 

1900000 

2000000 

2100000 

2200000 

2300000 

2400000 

2500000 

2600000 

2700000 

2800000 

2900000 

3000000 

3100000 

3200000 

3300000 

3400000 

3500000 

3600000 

3700000 

3800000 

3900000 

4000000 

4100000 

4200000 

4300000 

4400000 

4500000 

4600000 

4700000 

4800000 

4900000 

5000000 

5100000 

5200000 

5300000 

5400000 

5500000 

5600000 

5700000 

5800000 

5900000 

oOOOOOO 

6100000 

6200000 
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c* 

HUGER STATICN IPSI) 


«RAMA06 30 

6300000 

c* 

(LIU I ) = 0.U IS DEFAULT 

VALUE ISIS24) 

«RAMA0640 

' 6.400000 

c» 



MRAMA0650 

6500000 

c* 

TAPE input PARAMETERS 


«RAMA066O 

6.600000 

c* 

iCH - transducer station number 

♦RAMA067Q 

6700000 

c* 

I ISlCHSiAl 


♦kAMA0680 

6800000 

c* 

ucLTF - BLADE LOAUINC. FREwUENCY 

ORAMA0690 

6900000 

L* 

NSPCT - NUMBER CF SPECTRUM DATA POINTS PER 

MRAMAOrod 

7000000 

C* 

transducer STATION 


♦RAMA0710 

7100000 

t* 

AMP - AN ARRAY DIMENSIONED 

AT LEAST 1500 CONTAIN- 

♦RAMA0720 

7200000 

c» 

ING THE SPECTRUM DATA 

AMPLITUDE 

♦RAMA073Q 

7300000 

c* 

PHASE - AJM ARRAY DIMENSIONED 

AT LEAST 1500 CONTAIN- 

MRAMA0740 

7400000 

t* 

ING THE SPECTRUM DATA 

PHASE 

4RAMA0750 

7500000 

c* 



*RAMA0760 

7600000 

c* 

SUBROUTINES USED 


♦RAMA0770 

7700000 

c* 

NONE 


ORAMA0780 

7800000 

c* 



,*RAMA0790 

7900000 


8000000 

c 



RAMA0810 

BIOOOOO 


COMMON AMPU300.2)iPHASEIl^OU.21tNUAMP(15DO).NUPHASEIlS00l 

RAHA0820 

8200000 


DIMENSION DBREFI^'^I . I STNI 241 , JSTN(24i , I NDEXl 987 ) ,RECU A) .0ASPL(24tRAMA0830 

8300000 


♦iLU(24) 


RAMA0840 

8400000 

c 



RAHA0850 

8500000 


REAL IM.NUPHASEf NUAMP.LO 


RAM AO 860 

.8600000 

t 



RAHA0870 

8700000 


NAMELIST /input/ NTRACK S . CBREF , NPR INT .NSKl P. I STN t J STN . MTKACKS t MGHTRAMA0680 

8800000 


lUPTN.NTAPE.LO 


RAHA0S90 

8900000 


DATA RADIAN/57. 2957795/ 


RAMA0900 

9000000 

c 

' 


RAMA0910 

9100000 

c 

FUNCTIONS USED IN THE COMPLEX ADDITION OF THE TRANSDUCER 

RAHA092X) 

9200000 

t 

SPECTRUM DATA 


RAMA093D 

9300000 


RE (I tJI=AMP( I. Ji«CaS(PHASEU ,J)/ RAD I AN) 


RAMA0940 

9400000 


IM(I ,Ji = AMP( I, J)«S IN (PHASE 1 1, J) /RADI AN) 


RAHA095O 

9500000 


Pllf Jf R.L) = ( AMP( I, J)*<'2)L(AMP(K,L)**2) 

..... 

RAMA0960 

9600000 


PP(I,J,K,L) = 2.*( AMP( I,J)’»AMP(K,LH* 


RAMA0970 

9700000 


UCOSH PHASE! 1, J ) -PHASE (K.D) /RAD IAN) ) 


RAMA0980 

9800000 

c 



RAMA099D 

9900000 

c 

OPEN kANDOM access FILE 


RAHAIOOO 

iooooooo 


CALL OPENMS (20< INDEX, 987.0) 


RAMAlOlO 

10100000 

c 



RAMA1020 

10200000 

c 

INPUT NAMELIST DEFAULT PARAMETER VALUES 

RAMAI030 

10300000 


NPRINT = 50 


RAMA 1040 

10400000 


NSKIP = 0 


RAMA1050 

10500000 


NGHT =1.0 


RAMA1060 

10600000 


IOPTN = 1 


RAMA 10 7.0 

10700000 


NTAPE = 1 


RAMAI060 

10800000 


DU 5 1=1,24 


RAHA1090 

10900000 


DBREFII) = 0.0 


RAMAllOO 

11000000 


L0(1 ) = 0.0 


RAMAlllO 

iiiooooo 


ISTNU ) = 0 


RAMAliZO 

11200000 


JSTN(I) = 0 


KAMA1130 

11300000 

' ■ ' 

5 CONTINUE' 


RAMA1140 

11400000 

c 



RAMA 11 50 

11500000 

c 

READ NAMELIST INPUT, CHECK FCR END 

OF FILE, AND OUTPUT 

RAHA1160 

11600000 

c 

NAMELIST INPUT TO PRINTER 


RAMA1170 

11700000 


10 READ (5, INPUT) 


RAHAliaO 

11800000 


IF IE0F.5) 999,20 


RAMA1190 

11900000 


20 WRITE (6, INPUT) 


RAMA1200 

12000000 

c 



RAMA12I0 

12100000 

c 

SKIP FIRST NSKIP RECORDS OF INPUT 

TAPE 

RAHA1220 

12200000 
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IF (NSKIP .EQ. JI GO TU 40 
UO 30 I=ltN3KlP 

MAKE EOF CHECK AND DETERMINE IF INPUT SPECTRUM DATA 


RAMA1230 
KAMA1240 
RAMA1250 
RAMAI260 
RAMA127X) 
RAMAUaO 
RAMAI290 
RAMA130D 

!040 FORMAT I // / f 40X t ♦THE NUMbER OF SPECTRUM DATA RECORDS TO BE SK I PPEORAMA 13 10 
1 ♦,I3t/f30Xt*IS GREATER THAN THE NUMBER OF RECORDS OF SPECTRUM 0ATRAMA1320 


COMES FROM 1 OR 2 TAPES 

READ (7) 

IF 1EUF,7J 25,30 
25 IF (NTAPE .NE. 11 GO TO 30 
WRITE (6,2040) NSKIP 


2A ON INPUT TAPE^l 
GO TU 999 
30 CONTINUE 

INITIALIZE COUNTERS FOR NUMBER OF TRANSDUCER STATIONS, 
•KECO'RD SIZE OF SPECTRUM DATA BLOCKS, AND THE NUMBER 
“ OF SPECTRUM DATA BLOCKS PER STATION 

40 NSTN = 1 
50 NPUIN = 1500 
NR = 1 

READ TRANSDUCER STATION IDENTIFICATION RECORD FROM INPUT 
TAPE ANU USE IT FOR SAME PURPOSE ON RANDOM ACCESS FILE 
READ (7) ICH,DELTF,NSPCT 

MAKE EOF CHECK AND DETERMINE IF INPUT SPECTRUM DATA 
COMES FROM I OR 2 TAPES 
IF (EOF, 7) 53,57 
53 IF (NTAPE .NE. I) GO TO 55 
WRITE (6,2050) NTRACKS 


RAMA1330 

RAMA1340 

RAMA1350 

RAMAI360 

RAMA1370 

RAMA1380 

RAMA1390 

RAMAI400 

RAMA14I0 

RAMA1420 

RAMA1430 

RAMA1440 

RAMA1450 

RAMAI460 

RAMA1470 

RAMA1480 

RAMA1490 

RAMA1500 

RAMA15I0 

RAMA1520 


2050 FORMAT (///., 40X, *THE NUMBER OF TRACKS OF SPECTRUM DATA TO BE C0MBIRAMAI53O 
INEO ♦,I2,/,30X,^JS GREATER THAN THE NUMBER OF TRACKS OF SPECTRUM DRAMA1540 


2ATA ON INPUT TAPE*) 

GO TO 999 

55 READ (7) ICH, DEL TF ,NSPC T 

57 RECKl) = FL0AT( ICH) 

RECU2) = OELTF 
REC113) = FlOAT(NSPCT) 

BT DETERMINING THE NUMBER OF SPECTRUM DATA BLOCKS PER 
STATION COMPUTE BEGINNING RANDOM ACCESS RECORD LOCATION 
NREAD = (NSPCT-1 1/1500 + 1 
NRPTS = 2*NKEA0 *■ I 
NREC = ( ICH-1)*NRPTS ♦ 1 
CALL WKITMS (2U,RECI,3,NREC) 

NREC = NKEC*1 

DETERMINE RECORD SIZE OF DATA BLOCK NREAD, READ SPECTRUM 
DATA block from INPUT TAPE, AND STDRE DATA BLOCK ON 
RANDOM ACCESS FILE IN TWO RECORDS -AMPLITUDE ♦ PHASE. 

60 NTOTL = NR*1500 

IF (NTOTL .GT. NSPCT) NPCIN = NSPC T-NTOTL* 1500 
, , READ (7). ( AMP( I , II ,PHASE( 1, 1) ,l=l,NPCIN) 

CALL WRITMS ( 20 , AMP ( 1 , 1 1 , NPO IN, NREC ) 

NREC = NREC+1 

CALL WRIIMS (20, PHASE) I, I) ,NPOIN, NREC) 

NREC = NREC+l 

determine if last CATA BLOCK FOR THIS STATION HAS BEEN 
READ AND STORED 


RAMAI550 
RAMA1560 
RAMAI570 
RAMA15B0 
RAMA1590 
RAMA1600 
RAMA1610 
RAMA1620 
RAMAI630 
RAMA 1640 
RAMA1650 
RAMAI660 
RAMAI670 
RAMA1680 
RAMA1690 
RAMAI700 
RAMA17 10 
RAMA 1720 
RAMAI730 
RAHA1740 
RAMA1750 
RAMA1760 
RAMA1770 
RAMAI780 
RAMA1790 
RAMA1800 
RAMAI8 10 
RAMA1820 
RAMA1830 


12300000 

12400000 

12500000 

12600000 

12700000 

12800000 

12900000 

13000000 

13100000 

13200000 

13300000 

13400000 

1350000<) 

13600000 

13700000 

13800000 

13900000 

14000000 

14100000 

14200000 

14300000 

14400000 

14500000 

14600000 

14700000 

14800000 

1490_00_00 

15000000 

15100000 

15200000 

15300000 

154000(}6 

15500000 

15600000 

15700000 

158 0000 0 

15900000 

16000000 

16100000 

16200000 

16300000 

16400000 

16500000 

16600000 

16700000 

16800000 

16900000 

17000000 

17100000 

17200000 

17300000 

17400000 

17500000 

17600000 

17700000 

17800000 

17900000 

18000000 

18100000 

18200000 

18300000 
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70 


dO 


IF INPUIN 
NR - NR+l 
GU T(J 60 


.NE. lijOOI GU TG 70 


UETERMINt IF SFECTRUrt DATA HAS BEEN INPUT ANO STUREU FOR 

ALL Transducer stations 

NSTN = NSTN+L 

IF INSTN .LE. NTRACRS) GO TO 50 

SET POINTER FRu THE RECuRO SI/E OF THE LAST SPECTRUM DATA 
BLOCK FOR EACH STATION 
MPOIN = NPUIn 

INITIALIZE STEADY LOAOING ANO OASPL COUNTER 

NNS = 0 

INITIALILE COMBINED SPECTRUM DATA RECORD REWRITE COUNTER 


NREC = 1 

LOUP TO REDUCE 
ADDITION) FROM 

DO 160 NS=lfMTRACKS 


TFE NUMBtK 
NTRACKS TG 


OF TRANSDUCER 
MT RACKS 


STATIONS (BY 


IF 


Determine 

IGNORED 

IJSTN(NS) .Eo. 


IF DATA FRCM TRANSDUCER TRACK ISTNINS) IS TO BE 


0) GO TO 160 


SET TO 
SIMILAR 


TRANSDUCER 
DEF INIT ION 


INIllALI^E COUNTERS ( IREC IS ORIGINALLY 
identification RECORD FUR STATION NS - 
FOR JREC AND NREO- 
SUM = J.J 
II ^ I 

IREC = (ISTN(,<S)-U»NRPTS ♦ 1 

read aTATION IDEM IFICATION RECORD. RESTORE THIS RECORD 

ON Random access if desired, and read second station, . 

IDENTIFICATION RECORD. 

CALL READMS ( ZO , REC 1 , 3 , I R EC ) 

IF (lOPTN .Eg. 0) GO TO BO 
RECU4) = FLOAT(NREAD) 

CALL NkITMS(Zd,REC1,A,NR£C) 

NREC = NRECfI 

IF (ISTn(NS) .Ew. JSTNINSI) CO TG 90 
JrEC = ( JSTN(NsJ-l>*NRPTS ♦ 1 
CALL READMS ( ZO , REC I , S , JREC ) 


RAMA1640 

RAMAIBSO 

RAMA1860 

RAMA1870 

RAMA1880 

RAMA18S0 

RAMA1900 

RAMA1910 

RAMA1920 

RAMA1930 

RAMA1940 

RAMA1950 

RAMA1960 

RAMA1970 

RAMA1980 

RAMAJ;990; 

RAMAZOOb 

RAMA2010 

RAMA2020 

RAMA2030 

RAMA20AO 

RAMA2050 

RAMA2060 

RAMA2070 

RAMA2080 

RAMA2090 

RAMA2100 

RAMA21 10 

RAMA2120 

RAMA2130 

RAMA21A0 

RAMA2150 

RAMA2160 

RAMA2170 

RAMA2180 

RAMA2190 

RAMA2200 

RAMA2210 

RAMA2Z20 

RAMA2230 

RAMA2240 

RAMA2Z50 

RAMA2260 

RAMA2270 

RAMA228D 

RAMA2290 

RAMA2300 

RAMA2310 


OUTPUT POSITION HEADING INFORMATION 
' 90 IF (l6TN(NS) ,NE. JSTNINS)) mRI T E ( 6 , 2000) NS , I STN ( NS ) , JS TN ( NS ) 

2000 FORMAT ( IH 1 , / / , 4 uX , *COMB IM NG OF TRANSDUCER STATION SPECTRUM DATA»RAMA2320 
l,//,50X,*FiNAL VALUES FUR PCSlTiCN ♦ , 1 2 , / , 35X , * I SPECT RUM DATA FR0MRAMA2330 
Z STATIONS *,lz,* AND *,I2,* HAS 8EEN ADDEOI*,//) RAMA2340 

IF (ISTN(NS) .Eg. JSTN(NS)) WRITE (6,2030) NS, I S T N (NS ) , WGHT RAMA2350 

2030 Format ( IHi ,// ,-,0X ,*C0MB in ING of transducer station spectrum 0ATA*RAMAZ360 
1 ,// ,50X,*F INAl values FUR POSITION ♦ , 1 2 ,/ , 35X, * 1 SPECT RUM DATA FROMRAMA2370 
Z STATION *,IZ,* HAS BEEN SCALED BY THE FAC TOR* ,G 16 . 8 ,*)♦,// ) RAMA23B0 

WRITE (6,20Z0) RAMA2390 

2020 FORMAT ( // ,2 4X , * FREOUENC Y* , 1 OX , ♦ AMPL I TUOE* , 12X , *PHAS E* , / ) RAMA2400 

RAMA2410 

WRITE P'JslTlUN IDEM IF ICAT ION RECORD ON OUTPUT TAPE RAMA2420 

, WRITc (4) NS,DElTF,NSPCT,NREAU RAMA2430 


18400000 

18500000 

18600000 

1B700000 

18800000 

18900000 

19000000 

19100000 

19200000 

19300000 

19400000 

19500000 

19600000 

19700000 

.19800000 

19900000 

20000000 

20100000 

20200000 

20300000 

20400000 

20500000 

20600000 

20700000 

20800000 

20900000 

21000000 

21100000 

21200000 

21300000 

21400000 

21500000 

21600000 

21700000 

21800000 

21900000 

22000000 

22100000 

22200000 

22300000 

22400000 

22500000 

22600000 

22700000 

22800000 

22900000 

23000000 

23100000 

23200000 

23300000 

23400000 

23500000 

23600000 

23700000 

23800000 

23900000 

24000000 

24100000 

24200000 

24300000 
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RAHA2440 

RAMA2450 

UjUP TU reread transducer spectrum data from random ACCESSRAMA2460 
FILE IN PkEPARATICN FOR ADDITION, CREATE OUTPUT TAPE, AND RAMA2A70 
TU RESTORE COMblNED SPECTRUM DATA TO RANDOM ACCESS. RAMA2A80 

RAMA2A9D 
RAMA2500 
RAHA2510 
RAMA2520 
RAMA2S30 
RAMA2540 
RAMA255D 
RAMA2560 
RAMA2570 
RAMA2S80 
RAMA2590 
RAMA2600 
' RAHA26I0 

RAMA262D 
RAMA2630 
RAMA2640 
RAMA2650 
RAMA2660 

LOOP TU ADO SPECTRUM DATA FOR THE APPROPRIATE STATIONS OR RAMA267C 


DU iSJ NK=1,NREAD 


NPGIN = li>00 

IF (NR .Eg. NRtAui NPU1N=MP0IN 
IREC = IREC+l 

CALL KEAUMS (2U, AMPI 1 > L ) , NPOI N, I REC) 
IREC = IREC<-1 

CALL READMS (20, PHASE! L , L I ,NPQ1N, IKEC t 
IF (ISTN(NSJ .Eg. JSTNINSn GO TC lOb 
JREC ^ JKEOI 

CALL KEAUMS (20 , AMP ( i , 2 I , NPC I N, JREC i 
JKEC - JKEC+1 

CALL KEAUMS (2 0 , PHASE U , 2 i , NPQl N . JREC) 


TU SCALE UNAODEO DATA, CCMPU.TE FREUUENCY AND TO OUTPUT 
NPRINT VALUES TO PRINTER FOR EACH POSITION 


100 00 140 I-l,NPOIN 


determine if TKANSOUCEK data IS TO. BE ADDED OR SCALED 
IF (ISTN(NS) .EU. JSTN(NS)) GO TCI UC 

COMPLEX AUDITION OF SPECTRA (ISTNFJSTN) 

, •Pl=P(I,l,l,2)*PP(I,l,I,2) 

NUAMP(l)°SgRT(Pl) 

NUPHASE(I)-ATAN2(( IM(i, 1)FIM( (,2) ),(RE( 1,1J>KE1 1,2) ) ) 

NUPHASEI I)-NUPHASE( 1 )«RA0IAN 
GO TU 120 

mEIGHT UNCUMUINED SPECTRA 
110 NUAMP(l) = mGHT « AMPd.II 
' NUPHASE(I) = PHASE(I,1) 

COMPUTE FKcOUENCY 
120. F = (I-l) * OELTF 

OUTPUT NPRINT VALUES TO PRINTER 
IF (II .GT. NPRINT) GO TO 130 
WRITE (6,2010) ll,F,NUAMP(l) ,N0PHASEI1) 

2010 FORMAT (iOX, I5,i(5X,E14.S)) 

' II = II+l 

130 SUM - SUM * AUS( NUAMP( 1 ) )4*2 
140 CONTINUE 

WRITE POSITION DATA BLOCKS TC OUTPUT TAPE 
WRITE (4) (NUAHP(I),NUPHASE(IJ.l=l,NP01N) 

DETERMINE IF POSITION DATA BLOCKS ARE TO BE RESTORED UN 
RANDOM ACCESS 

IF IIOPTN .Eg. 0) GO TU ISO 


RAMA26B0 

RAMA2690 

RAMA2700 

RAMA2710 

RAMA2720 

RAMA2730 

RAMA2740 

RAMA2750 

RAMA2760 

RAMA2770 

RAMA27B0 

RAMA2790 

RAMA2B00 

RAMA2B10 

RAMA2B20 

RAMA2B30 

RAMA2840 

RAMA28S0 

RAMA2B60 

RAMA2870 

RAMA2880 

RAHA2B90 

RAMA2900 

RAMA2910 

RAHA2920 

RAMA2930 

RAMA2940 

RAHA2950 

RAMA2960 

RAMA2970 

RAMA2980 

RAMA2990 

RAMA3000 

RAMA3010 

RAMA3020 

RAMA3030 

RAMA3040 

RAMA305D 


24400000 

24500000 

24600000 

24700000 

24800000 

24900000 

25000000 

25100000 

25200000 

25300000 

25400000 

25500000 

25600000 

25700000 

25BOOOOO 

25900000 

26000000 

26100000 

26200000 

26300000 

26400000 

26500000 

26600000 

26700000 

26800000 

26900000 

27000000 

27100000 

27200000 

27300000 

27400000 

27500000 

27600000 

27/00000 

27800000 

27900000 

28000000 

28100000 

28200000 

28300000 

28400000 

28500000 

28600000 

28700000 

28800000 

28900000 

29000000 

29100000 

29200000 

29300000 

29400000 

29500000 

29600000 

29700000 

29800000 

29900000 

30000000 

30100000 

30200000 

30300000 

30400000 

30500000 
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CALL .FRITHS I20,NUAMP( U .NPOINtNKEU 
NREC = NREC+1 

CALL WKiTMS (20 . NUPHASE ( i I ,NPOIN, NRECi 
,^NREC = NREC + 1 - 


150 CONTINUE 


COMPUTE POSITION STEAOY LOADING FACTORS, COMPUTE OASPL 
ARRAY, ANO OUTPUT TO TAPE 


NNS = NNS+1 


LOl = 
L02 = 


IF (LOl .Eg 
IF (LUl .NE 


RAMA3060 
RAMA3070 
RAMA30aO 
RAMA3090 
RAMA3100 
RAMA31 10 
RAMA3120 
RAMA3130 
RAMA31A0 
RAMA3150 
RAMA3160 
RAMA3170 
RAMA3iaO 
RAMA31S0 
RAMA3200 
RAMA3210 
RAMA3220 
RAMA3230 
RAMA3240 
RAMA3250 

IF random ACCESS RESTOKAGE OF COMailNED SPECTRA IS DESIRED RAHA3260 


ISTN(NS) 

JSTN(NS) 

LU21 
lU2) 


= ABS (LO(LOll) 

= ABS (LU(L01i-LO(L021) 


LOINNS) 

LUINNSl 
RMS = SURT (SUM»0ELTF1 

UASPLINNSi = 20. « ALOGIO ( RMS/OBREF ( NSt) 
WRITE (A1 LOINNS), UASPL(NNS) 

160 CONTINUE 


WRITE STEAOY LOADING ARRAY ANO 0A6PL ARRAY TO FILE 
IF (IJPTN .Eg. 0) GO TO 333 
call WR1TMS(2D,lU( 1) ,MT racks, NREC) 

, NREC = NREC+1 

call WR1TMS(20,UASPL(1) ,MTKACKS,NREC) 

333 GO lU 10 

999 CONTINUE 
STOP 
END 

PRObRAM SPECPLI (1NPUT=201,0UTPUT=201,TAPE5=INPUT, TAPE6=0UTPUT, 
+ T APE A= 3001, 1APE20=201) 


RAMA3270 

RAMA3280 

RAMA32S0 

RAMA3300 

RAMA3310 

RAMA3320 

RAMA3330 

KAMA33A0 

RAMA3350 

RAMA3360 

RAMA3370 

SPECOOlO 

SPEC0020 


LWWWWWWWWWWWWWWWA + WAA+WWWWWW** + A + SPEC0030 


c* 



+SPEC0040 

c* 

PURPOSE 


♦SPEC0050 

L» 

PLOT (CALCOMP PLCT) THE COMBINED TRANSDUCER SPECTRUM 

♦SPEC0060 

C* 

DATA GENERATED BY PROGRAM RAMANI. ONE AMPLITUDE 

♦SPEC0070 

C* 

SPECTRUM 

AND ONE PHASE SPECTRUM IS PRODUCED FUR 

♦SPEC0080 

c* 

EALM OF THE CCHBINEU (ADDED OR SCALED) POSITIONS. 

♦SPEC0090 

c* 

THE PLOTS 

ARE CALCCMP PLOTS OF AMPLITUDE (OR PHASE) 

♦SPECOlOO 

c* 

,VS. FREgUENCY. 

•SPECOl 10 

c* 



♦SPEC0120 

L* 

Namelist input parameters 

♦SPEC0130 

L* 

mtkacks - 

NUMBER CF SPECTRUM DATA POSITIONS AFTER 

♦SPEC0140 

L* 


COMBINING ( 1SMTRACKSS14) 

•SPEC0150 

C* 

THRUST - 

TOTAL LIFT CF HELICOPTER (LBS.) 

♦SPEC0160 

c* 

RPM 

ROTATIONAL SPEED OF RXITOR (RPM) 

♦SPEC0170 

c* 

AMIN 

(XMAX-XMIN) (S ALLOWABLE FREQUENCY RANGE 

♦SPECOiaO 

c* 


(XM1N=0.0 (S DEFAULT VALUE) 

♦SPEC0190 

c* 

XMAA 

FOR PLOTTING THE SPECTRUM DATA (H2.) 

♦SPEC0200 

c* 


(XMAX=1000.0 IS DEFAULT VALUE) 

♦SPEC0210 

c* 

run 

RUN NUMBER 

♦SPEC0220 

L* 

YMIN 

(YMAX-YMIN) IS ALLOWABLE AMPLITUDE RANGE 

♦SPEC0230 

C* 


(YMIN--10U.0 IS default VALUE) 

+SPEC0240 

C* 

YMAX 

FOR PLOTTING THE SPECTRUM DATA 

♦SPEC0250 

c* 


(YMAX=-0.0 IS DEFAULT VALUE) 

♦SPEC0260 

C* 

YSCALE - 

AMPLITUDE SCALE FACTOR 

♦ SPEC02 70 

C* 


(YSCAlE=10.0 IS OEFAUL VALUE) 

+SPEC0280 

c* 

nnpljt - 

AN ARRAY DIMENSIONED 14 (FOR THE MAXIMUM 

♦SPEC0290 

L* 


NUMBER CF TRANSDUCER STATIONS) DETERMINING 

»SPEC0300 

C* 


WHETHER A SPECTRUM PLOT IS DESIRED FOR 

♦SPEC0310 

C* 


A GIVEN STATION 

♦SPEC0320 

C* 


U NO SPECTRUM DATA PLOTS ARE GENERATED FOR 

*SPEC0330 

C* 


ITF. POSITION 1 = 1,2,... ,MTRACKS 

+SPEC0340 

C* 


1 AN AMPLITUDE SPECTR.UM PLOT IS GENERATED 

*SPEC0350 

c* , 


FOR THE ITH PCSITION 1=1 ,2, . . . ,MTRACKS 

♦SPEC0360 

t* 


2 BOTH AMPLITUDE AND PHASE SPECTRUM PLOTS 

+SPEC0370 

c* 


WILL BE PRODUCED FOR THE IT.H POSITION 

+SPEC0380 

c* 

IOPTn 

0 THIS PROGRAM IS NOT RUN IMMEDIATELY 

+SPEC0390 

c* 


FOLLOWING PROGRAM RAMANI.. THEREFORE, 

♦SPEC0400 

c* 


COMBINED SPECTRUM DATA IS INPUT FROM 

♦SPECOAIO 

c* 


MAGNETIC TAPE. 

*SPEC0420 


30600000 

30700000 

30B00000 

30900000 

31000000 

31100000 

31200000 

31300000 

31400000 

31500000 

31600000 

31700000 

31B00000 

31900000 

32000000 

32100000 

32200000 

32300000 

32400000 

32500000 

32600000 

32700000 

32B00000 

32900000 

33000000 

33100000 

33200000 

33300000 

33400000 

33500000 

33600000 

33700000 

33800000 

33900000 

34000000 

34100000 

34200000 

34300000 

34400000 

34500000 

34600000 

34700000 

34800000 

34900000 

35000000 

35100000 

35200000 

35300000 

35400000 

35500000 

35600000 

35700000 

35800000 

35900000 

3o000000 

36100000 

36200000 

36300000 

36400000 

36500000 

36600000 

36700000 

36800000 

36900000 

37000000 

37100000 

37200000 

37300000 

37400000 

37500000 

37600000 

37700000 

37800000 

37900000 
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c* 


1 This PROGRAM IS RUN IMMEDIATELY FOLLOWING 

•SPEC0430 

c* 


IJCB-sTEPPED WITH! PROGRAM RAMANl. 

4SPEC0440 

c* 


THEREFORE, COMBINED SPECTRUM DATA IS 1NPUT*SPEC0450 

L* 


FROM RANDOM ACCESS FILE. 

*SPEC0460 

c* 


(IUPTN=1 IS UEFAULT VALUE) 

♦SPEC0470 

c* 



*SPECQ480 

c* 

MAG TAPE 

OR RANDOM ACCESS FILE INPUT 

♦SPEC0490 

c* 

ICrt 

- SPECTRUM DATA POSITION NUMBER 

4SPEC0500 

c* 


( 1SICHK14) 

♦SPEC0510 

c* 

ueltp 

- BLADE LOADING FREQUENCY 

*SPEC0520 

c* 

nsplt 

- NUMBER OF SPECTRUM DATA POINTS PER TRANS- 

♦SPEC0530 

c* 


DUCER (combinec) station 

♦SPEC0540 

c* 

AMP 

- AN ARRAY DIMENSIONED AT LEAST 1500 CONTAIN- 

4SPEC0550 

t* 


ING THE COMBINEC SPECTRUM DATA AMPLITUDE. 

♦SPEC0560 

c* 

PHASE 

- AN ARRAY DIMENSIONED AT LEAST 1500 CONTAIN- 

♦SPEC0570 

c* 


ING THE COMBINED SPECTRUM DATA PHASE 

*SP£C0580 

c* 



♦SPEC0590 

c* 

SUBRUUI 1 

NE USED 

♦SPEC0600 

c* 

NONE 


4SPEC0610 


CUMMUN NUAMPl 1300) ,NUPHASE ( 1 300 ) ,XPLGT( 1500) .Kll 1500) 

UlMbNSlUN OBRbPl 14 ) . LO ( 1 A ) , UA SPL ( 14) .WNPLUl ( 14 ) , PAR 1 1 2 ) f PAK^ ( 2 ) , 
vPAR3(2).PAR412) ,PAR5(2) . P ARb ( 2 t • PART ( 2 ) > IMOt X ( 4b7 ) ,kECl(4) 

REAL LJiNOAMPtNjPHASE 


CALL 

CALL 

CALL 


OPEN RANOUrt ACCESS PILE 
OPENMS (20f INJEXtVai.O) 
PSEUUU (6LSPCTKA) 

LEROy 


AND CALL CALCOMP PROCESSOR 


INPUT 

0.0 

1000.0 

-liiO.O 

- 0.0 

.0 


namelist uEFAULT parameter values 


L«**«<i**»««*«*«* <■««»««««««»«»«*»«**»*««**«•»**•»««»«*«***«* »*«*»*»*««*»« SPEC06 20 
C SPEC063.0 

SPEC0640 
SPEC0650 
SPEC0660 
SPEC0670 
SPECO&aC 
SPEC0690 

namelist /input/ MIRACKS, IhRLST ,RPM , XMl N.XMAX , RUN, YM IN , V M AX, Y SC ALESP EC07CC 
♦ ,NNPLUT,0BREE, IJPTN SPEC07 10 

SPEC0720 
SPEC0730 
SPEC0740 
SPEC0750 
SPEC0755 
SPEC0760 
SPEC0770 
SPEC0780 
SPEC0790 
SPECOeOO 
SPEC0810 
SPEC0820 
SPEC0830 
SPEC0840 
SPEC0850 
SPEC0660 
SPEC0870 
SPEC0860 
SPEC0890 
SPEC0900 
SPEC0910 
SPEC0920 
SPEC0930 
SPEC0940 

TEST TO OETERMINE IP COMBINED TRANSDUCER SPECTRUM DATA IS SPEC0950 
TO BE INPUT PROM RANDOM ACCESS FILE OR PROGRAM RAMAN I SPEC0960 

OUTPUT TAPE SPEC0970 

IP (lOPTN .NE. Ul GO TO 70 SPEC0980 

SPEC0990 
SPECIOOO 

INITIALIZE KANOCM ACCESS RECORD COUNTER FOR SPECTRUM DATA SPECIOIO 

SPEC1020 
SPEC1030 
SPEC1040 
SPEC1050 
SPEC1060 
SPEC 10 70 
SPEC1080 

READ TRANSDUCER STATION IDENTIFICATION RECORD (AND REST0RESPEC1090 


XMIN 
XMAX 
YMIN 
YMAX 

YiCALE = 10, 
lOPTN = 1 
DU 3 1=1, 14 

NNPLOTU) = 0 
DBREPI 1) = 0.0 
3 CONTINUE 

READ NAMELIST INPUT 
namelist TO PRINTER 
10 READI5, INPUT ) 

IF IEUP,5) 999,30 
30 MR1TEI6, INPUT) 


CHECK FOR END OF FILE, AND OUTPUT 


C 

C 

C 

L 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NREC=1 

KLOUPK TO INPUT COMBINED TRANSDUCER SPECTRUM DATA FROM 
RAMANl OUTPUT TAPE AND RESTORE THIS SPECTRUM DATA ON THE 
RANDOM ACCESS FILE 
DU 50 NS=1,MTRACKS 


10. RECORD UN RANDOM ACCESSI 
READ (4) 1CH,DELTF,NSPCT,NREA0 
RECltl) = FLOAT IICH) 

REC1I2) = OELTF 
RECltii = FLOAT (NSPCT) 


SPECllOO 

SPECllLO 

SPEC11^0 

SPEC1130 

SPEC1140 


3B000000 

38100000 

38200000 

3B300000 

38400000 

38500000 

38600000 

38700000 

38800000 

38900000 

39000000 

39100000 

39200000 

39300000 

39400000 

39500000 

39600000 

39700000 

39800000 

39900000 

40000000 

40100000 

40200000 

40300000 

40400000 

40500000 

40600000 

40700000 

40800000 

40900000 

41000000 

41100000 

41200000 

41300000 

41400000 

41500000 

41600000 

41700000 

41800000 

41900000 

42000000 

42100000 

42200000 

42300000 

42400000 

42500000 

42600000 

42700000 

42800000 

42900000 

43000000 

43100000 

43200000 

43300000 

43400000 

43500000 

43600000 

43700000 

43800000 

43900000 

44000000 

44100000 

44200000 

44300000 

44400000 

44500000 

44600000 

44700000 

44800000 

44900000 

45000000 

45100000 

45200000 
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REC1I4) > FLOAT (NREAO) 

CALL riRlTMS (20iRECl t4t NRECt 
NREC = NR£C*1 


NPOIN 

MPOIN 


DETERMINE APPROPRIATE RECORD SIZE OF AMPLITUDE (PHASE) 

DATA BLOCKS 

1500 

NSPCT - iNREAO-ll*1500 


SPEC1150 
SPEC116D 
SPEC1170 
SPEC1180 
SPEC1190 
SPEC1200 
SPEC12U) 
SPEC1220 
SPEC1230 
SPEC1240 
SPEC1250 
SPEC 12 60 
SPEC1270 
SPEC12S0 
SPEC1290 
SPEC1300 
SPEC1310 
SPEC1320 
SPEC 13 30 
SPEC1340 
SPEC1350 
SPEC1360 

READ STEADY LOADING FACTOR AND 0A6PL TO BE USED IN SPECTRUSP EC13 70 


READ SPECTRUM DATA BLOCKS FROM TAPE (AND RESTORE DATA 
BLOCKS ON RANDOM ACCESS 
DO 40 NR=°1»NREAD 

IF (nr .Eg. NREAD) NPOIN^MPOIN 

READ (4) (NUAMPIU.NUPHASEID.l-ltNPClNI 

CALL RRITMS ( 20. NUAMP ( 1 1 . NPOI Nf NREC) 

NREC = NREC*1 

CALL RRITMS (20. NUPHASE ( 1 ) .NPOIN , NREC) 

NREC = NREC*1 

40 CONTINUE 


PLOT LABELING 
READ (4) LOINS) .OASPL(NS) 

50 continue 

RESTORE POSITION STEADY LOADING FACTORS AND POSITION 
OASPL FACTORS ON RANDOM ACCESS 
CALL RRITMS ( 20 . LO ( 1 ). M TRACK S. NREC ) 

NREC = NRECf-l 

call WRITMS (20.0ASPL( 1) .MTRACKS.NREC) 

GO TO BO 

SPECTRUM OATA IS TO BE INPUT DIRECTLY FROM RANDOM ACCESS 


SPEC13B0 
SPEC1390 
SPEC 1400 
SPEC1410 
SPEC1420 
SPEC1430 
SPEC1440 
SPEC1450 
SPEC 1460 
SPEC1470 
SPEC1480 
SPEC1490 
SPEC150O 
SPEC1510 


(READ STATION IDENTIFICATION RECORD. STEADY LOADING FACT0RSPEC1520 


RECORD. AND OASPL RECORD) 


70 NREC 


CALL READMS ( 20 . RECl .4. NREC) 

OELTF - RECK2) 

NSPCT - IFIX (RECK3)) 

NREAO = IFIX (RECK4)) 

NREC = MTRACKS*(2*NREA0»1) ♦ 1 
CALL READMS ( 20 . LO ( 1 ). M TRACK S .NREC) 
NREC = NREC+1 

CALL READMS ( 20 . OASPL ( 1 ). MTRACKS .NREC) 
MPOIN = NSPCT - (NR£AD-1)*1500 


SECTION TO COMPOTE aBANORIDTHA FOR. TRANSDUCER STATION 
SPECTRUM PLOTS 
bO do YO 1=1. NSPCT 
1J=1 

IF ( ( 1 J-1) *DELTF .GE. XMIN) GO TO IOC 
90 CONTINUE 
IDU IJl = IJ 

DO 110 l=IJi, NSPCT 
IJ = NSPCT -I YUl 

IF ( ( 1J-1)«DELTF .LE. XMAX) GU TO 120 
110 CONTINUE 
120 1J2 = IJ 


IF (IJl .LT. 1J2) 
RRITE (6.2000) 


GO TO 130 


SPEC1530 
SPEC1540 
SPEC1550 
SPEC1560 
SPEC1570 
SPEC1580 
SPEC1590 
SPEC1600 
SPEC 1610 
SPEC1620 
SPEC1630 
SPEC1640 
SPEC1650 
SPEC1660 
SPEC167C 
SPEC1680 
SPEC1690 
SPEC 1700 
SPEC1710 
SPEC1720 
SPEC1730 
SPEC1740 
SPEC1750 
SPEC1760 
SPEC1770 
SPEC1780 
SPEC1790 
SPECIBOO 


2000 FORMAT Uril , / / , I OX . * BANOR lOTH FOR SPECTRUM PLOTS IS TOO NARROW - NSPECIBIO 
4-U combined transducer station spectrum plots are generated*) SPEC1B20 

GO TO 333 SPEC1830 

C SPEC1B40 

C COMPUTE THE NUMBER OF POINTS TO BE PLOTTED SPEC185C 

130 NPLOT = 1J2-IJI*! SPEC1860 

C SPECl87d 


45300000 

45400000 

45500000 

45600000 

45700000 

45BOOOOO 

45900000 

46000000 

46100000 

46200000 

46300000 

46400000 

46500000 

46600000 

46700000 

46800000 

46900000 

47000000 

47100000 

47200000 

47300000 

47400000 

47500000 

47600000 

47700000 

47800000 

47900000 

48000000 

48100000 

48200000 

48300000 

48400000 

48500000 

48600000 

48700000 

48800000 

48900000 

49000000 

49100000 

49200000 

49300000 

49400000 

49500000 

49600000 

49700000 

49800000 

49900000 

50000000 

50100000 

50200000 

50300000 

50400000 

50500000 

50600000 

50700000 

50800000 

50900000 

51000000 

51100000 

51200000 

51300000 

51400000 

51500000 

51600000 

51700000 

51800000 

51900000 

52000000 

52100000 

52200000 

52300000 

52400000 

52500000 
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COMPUTE SCALE EACTOKS, AAO X-AXIS AND V-AXIS LENGTHS 
FKANCE = XMAX-XMTN 


PUkiiO = PGHlO/lO. 
L9Ci IdU, 160 


^ 10 . 200.200 


IhlN=IMIN-l 


If«AX= IMAXEl 


lPCIM10=:ALUbl JlEKANot 1 
POWlO - 1U.**1PJW1U 
IF (PiiHlU .GE. FKANoEI 
IF IFRANGt/POwlU -IG.) 

160 XSCALE = PUmIO 
GO TO 240 

190 IF IFRANGE/PQmIO - 5.1 
20o XSCALE = POWIJ / 2. 

GO To 240 

210 IF 1FRANGE/P0«l0 - 2.) 230.220,220 
220 XSCALE = PUWIO / 5. 

GO TO 240 

230 XSCALE = POhlO; / 10. 

240 IMIN = XMIN / XSCALE 

IFt IMIN*XSCALE.GT.XM1 n» 

XMIN=IMIN*XSCAlE 
IMAX=XMAX/XSCALE 
1F(1MAX*XSCALE.LT.XMAXI 

xl=imax-imin 

NMAX= I YMAX- Y Ml N W Y SC ALE 

IF INMAX*YSCALE<-YMIn.LT . YMAXl NMAX=NMAX*i 

IFlNMAX.uT. 101 NMAX=10 

YL^NMAX 


SET MINIMUM AND MAXIMUM PHASE VALOES. AND Y-AXIS LENGTH 
aNO SCALE FACTOKS FOR THE OPTIONAL PHASE SPECTRUM PLOTS 
YPMIN = -160.0 
YPMAX = loO.O 
YPL = 10.0 
YPSCALE = 40.0 

determine TUTAL MiMbER OF SPECTRUM DATA RECORDS STORED 
ON RANUJM ACCESS 

NRCSUM = MTRACkS * 12»NKEAC+11 F 3 


♦LOOP* TU CREATE TRANSDUCER SPECTRUM DATA PLOTS 
Du 300 NS=1.MTRACKS 

DETERMINE IF PLOT IS REwUESTEU FOR. THIS STATION 
IF IiyNPLUTINSI .Eg. 01 GC TO 300 


b SEl LOUP INDEX DEPENDING ON MHEIHER PHASE PLOT IS DESIRED 

NAP =1 

IF (NNPLOTINSJ .Eg. NAP=2 

LOOP FUR AMPLITUDE AND OPTIONAL PHASE SPECTRUM PLOTS 
IF IAP=2. ALL REFERENCES TC AMPLITUDE IN THE FOLLOWING 
LCUP ACTUALLY ARE CIRECT TO PHASE. 

OU 295 IAP=1.NAP 

INITIALIZE random ACCESS RECORD COUNTER FOR PLOT DATA 
IPREC = NRCSUM 

INITIALIZE COUNTERS FOR THE TOTAL NUMBER OF ELEMENTS IN 
plotting arrays, the PLOTTING ARRAY BLOCK SIZE. THE 
SPECTRUM ARRAY BLOCK SIZE, THE TOTAL NUMBER OF AMPLITUDE 
VALUES READ. AND THE RANDOM ACCESS RECORD COUNTER FOR 
SPECTRUM DATA 
MTOTL = 0 
KPNTS = 0 
NTOTL = U 
NPOIN = 1500 

NREC = INS-U * (2»NREA0*1J ♦ 2 
IF IIAP .Eg. 21 NREC=NREC4I 


fLOUPf TO READ AMPLITUDE DATA FROM RANDOM ACCESS AND 
TO DETERMINE THE SIZE + THE ELEMENTS OF THE PLOTTING 


SPECI880 

SPECI890 

SPEC 1908 

SPEC1910 

SPEC1920 

SPLC1930 

SPEC1940 

SPEC1950 

SPEC 1960 

SPEC1970 

SPEC1980 

SPEC1990 

SPEC2000 

SPEC2010 

SPEC2020 

SPEC2030 

SPEC2040 

SPEC2050 

SPEC2060 

SPEC20 7.0 

SPEC2080 

SPEC2090 

SPEC 2 1 00 

SPEC2U0 

SPEC2120 

SPEC2I30 

SPEC2140 

SPEC2150 

SPEC2160 

SPEC21 70 

SPEC2180 

SPEC2190 

SPEC2200 

SPEC2210 

SPEC2220 

SPEC2230 

SPEC2240 

SPEC 2 2 50 

SPEC2260 

SPEC2270 

SPEC2280 

SPEC2290 

SPEC230O 

SPEC23L0 

SPEC2320 

SPEC2330 

SPEC2340 

SPEC2350 

SPEC2360 

SPEC2370 

SPEC2380 

SPEC2390 

SPEC2400 

SPEC2410 

SPEC2420 

SPEC2430 

SPEC2440 

SPEC2450 

SPEC2460 

SPEC2470 

SPEC2480 

SPEC2490 

SPEC2500 

SPEC2510 

SPEC2520 

SPEC2530 

SPEC2540 

SPEC2550 

SPEC2560 

SPEC25I0 

SPEC2580 

SPEC2590 

SPEC260O 

SPEC26U) 


52600000 

52700000 

52800000 

52900000 

53000000 

53100000 

53200000 

531QOOOO 

53400000 

53500000 

53600000 

53700000 

53800000 

53900000 

54000000 

54100000 

54200000 

54300000 

54400000 

54500000 

54600000 

54700000 

54800000 

54900000 

55000000 

55100000 

55200000 

55300000 

55400000 

55500000 

55600000 

55700000 

55800000 

55900000 

56000000 

56100000 

56200000 

5o300000 

56400000 

56500000 

56u00000 

56700000 

56800000 

56900000 

57000000 

57100000 

57200000 

57300000 

57400000 

57500000 

57600000 

57 7-00000 

57800000 

57900000 

58000000 

58100000 

58200000 

58300000 

58400000 

58500000 

58600000 

58700000 

58800000 

56900000 

59000000 

59100000 

59200000 

59300000 

59400000 

59500000 

59600000 

59700000 

59800000 

59900000 


83 



ro n n n r n ro no non nnnnrio onoo onri onn 


APPENDIX G 


ARRAYS 

UU 260 NR=l>NReA0 


SPEC2620 
SPEC263C 
$PEC264<0 

COMPUTE total SIZE OF PLOTTING ARRAYS ANO TEST IF PLOT! INGSPEC265C 


ARRAYS ARE COMPLETE 
MTOTL = MTOTL*KPNTS 
IF (MTOTL .Eg. NPLOTI GO TG 270 

DETERMINE RECORD SUE, READ AMPLITUDE DATA FROM RANDOM 
ACCESS. ANO INCREMENT RECORD COUNTER 
IF (NR .EU. NREAOJ NPOIN=>MPOIN 
CALL REAOMS (20. NUAMP( 1) .NPOlN.NRECi 
NREC s NREC+2 


IJ = 

DETERMINE PLOTTING ARRAY RECORD BLOCK SIZE AND SAVE THE 
SIZE OF THE FIRST RECORD 
KPNTS = IJ 

IF (IJ .GT. NPLUTI KPNTS = NPLUT-MTQTL 
IF (KPNTS .GT. NPUINJ KPNTS = NPCIN 
IF (MTOTL .ECl. OJ IPNTS = KPNTS 


SPEC2660 
SPEC 26 70 
SPEC2680 
SPEC2690 
SPEC2700 
SPEC2710 
SPEC2720 
SPEC2730 
SPEC27AO 
SPEC2750 

COMPUTE TOTAL NUMBER OF AMPLITUDE VALUES READ.. AND. TEST SPEC2760 
IF AMPLITUDE VALUES HAVE REACHED THE LOWER FREuUENCY BAND SPEC2770 
LIMIT SPEC278C 

NTOTL = NTOTL * NPOIN SPEC2790 

IF (IJl .GT. NTUTLi GO TG 260 SPEC2B00 

; SPEC2810 

COMPUTE POINTER USED IN DETERMINING SIZE OF PLOTTING ARRAY SPEC2820 

BLOCKS AND STARTING AMPLITUDE VALUE USED IN COMPUTING KRIKSPEC2830 
NTOTL-IJlKl SPEC2840 

SPEC2860 
SPEC2860 
SPEC2870 
SPEC28B0 
SPEC2890 
SPEC2900 
SPEC2910 
SPEC2920 

DETERMINE INITIAL STARTING AMPLITUDE USED IN FORMATION OF SPEC2930 
PLOTTING ARRAYS SPEC2940 

IF (IJ .LT. NPOIN) IJ = NPCIN-IJ SPEC2950 

IF (IJ .GE. NPOIN) IJ = I SPEC2960 

SPEC2970 
SPEC2980 
SPEC2990 
SPEC3000 
SPEC3010 
SPEC3020 
SPEC3030 
SPEC3040 
SPEC3050 
SPEC 3060 
SPEC3070 
SPEC3080 
SPEC3090 
SPEC3100 
SPEC3110 
5PEC3120 
SPEC3130 
SPEC3140 
SPEC3150 
SPEC3160 
SPEC3170 
SPEC 3 1 80 
SPEC3190 
SPEC3200 
SPEC3210 

SET CuuiMTERS FOR NUMBER CF PLOTTING ARRAY DATA BLOCKS PER SPEC3220 
STATION. BEGINNING KEURU LOCATION. RECORD SIZE FOR LAST 
DATA block 

.:70 N8LOCK = ( IPREC-NRCSUM) / 2 
IPREC = NRCSUrt 
JPNTS = KPNTS 


INITIAL DETERMINATION OF PLOT ARRAY 
DU 250 I=1.KPNIS 
XPLOTin = (IJ-D4UELTF 
IF ( lAP .Eg. 2) GO TO 245 
KKI) == 20. 4 AL0G10(NUAMP(IJ)/0BREF(NS)) 

IF (KI(I) .LT. YMIN) RI(I)=YMIN 
IF (RKI) .GT. YMAX) R1(I) = YMAX 
IJ = IJ+i 
GO TU 250 

245 KKI) = NUAMP(IJ) 

IF (KKI) .LT. YPMIN) RIK) = YPMIN 
IF (RKI) .GT. YPMAX) RI(l) = YPMAX 
I J = I J+I 

250 CONTINUE . 

STORE PLOTTING ARRAY BLOCKS LN RANDOM ACCESS FILE 
- CALL gRITMS 120, XPLOI(l), KPNTS. IPREC) 

IPREC = IPRECkI 

CALL RRITMS iZU , RI U ). KPNT S . IPREC ) 

IPREC = IPREC+l 

2o0 Continue 


determine SPECTRUM PLOT LABELING PARAMETERS 
TAPETK = NS 

ENCDD£(ID.700,PARU RUN 
700 FORMATl*RDN =*,F5.0) 

ENCODE I Id>7I0,PAR2) LO(NS) 

710 FORMATKlO =*,Fo.3I 

Encode i I9. 72j.par3) oasplins) 


SPEC3230 

SPEC324C 

SPEC3250 

SPEC3260 

SPEC3270 

SPEC3280 

SPEC329C 

SPEC3300 

SPEC3310 

SPEC3320 

SPEC3330 

SPEC3340 

SPEC3350 


60000000 
60100000 
60200000 
60300000 
60400000 
60500000 
60600000 
60700000 
60800000 
60900000 
61000000 
61100000 
61200000 
6L300000 
61400000 
61500000 
6L600000 
61700000 
61800000 
61900000 
62000000 
62100000 
62200000 
62300000 
62400000 
62500000 
62600000 
62 700000 
62800000 
62900000 
63000000 
63100000 
63200000 
63300000 
63400000 
63500000 
63600000 
63700000 
63800000 
63900000 
64000000 
64100000 
64200000 
64300000 
64400000 
64500000 
64600000 
64700000 
64800000 
64900000 
65000000 
65LOOOOO 
65200000 
65300000 
65400000 
65500000 
65600000 
65700000 
65800000 
65900000 
66000000 
66100000 
66200000 
66300000 
66400000 
66500000 

6O600000 

66700000 
66800000 
66900000 
6 7.000000 
67100000 
67200000 
67300000 
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720 

format (♦UASPL .=♦,010.4, *08*1 

SPEC3360 



ENCUOE Ub,/3J,PAK4l OBREFlNil 

SPEC3370 


730 

FORMAT (*08REF =*,011.31 

SPEC3380 



ENCODE 1 17, 740, PAR5 ) THRUST 

SPEC3390 


740 

format l*THHUil =*,F7.0,*L8*1 

SPEC3400 



ENCOOEI 12, 750,PAK6| RPm 

SPEC3410 


750 

FORMAT(*RPM =*,F7.0» 

SPEC3420 



ENCUDcl 13, 7oO,PAR7J TAPETK 

SPEC3430 


760 

FORMAT(*TAP£ TK =*,F4.0I 

SPEC3440 

c 


. 

SPEC3450 

c 


DRAW AND label bCIH X-AXIS AND Y-AXIS 

SPEC3460 



CALL AXES! J. ,0. ,0. ,XL,XM1N,XSCALE,-1., 10., 13HFREQUENCY, H2 , 

. 15,-13SPEC3470 



11 

SPEC3480 



IF llAP .EU. 11 CALL AXES ( 0 . , 0. ,90. ,VL , YHl N , Y SCALE , 1. , 10. , 

44HBLADSPEC3490 


+ fc LUAOlNii tJtFFICIKi^TS 1 2CL0G1 P S/OBKfcF 11 ,» 21 ,44 J 

SPEC3500 



IF (lAP .ED. 2) CALL AXES ( 0. , 0. , 90. , YPL,-200 . 0, YP SC ALE , 1 . , 

10. ,24HSPEC3510 


fPHAit iPtCTnOM 1 uEGktES ) ,.21,241 

SPEC3520 

c 



SPEC3530 

c 


LA8EL station SPECTRUM PLOT 

SPEC3540 



CALL NOT ATE 1 .5,9. 7,. 2, PARI ,0. ,101 

SPEC3550 



CALL N0TATE(3. ,9.7,.2,PAR4,0.,181 

SPEC3560 



Call NOTATEI .5,9.4,.2,PAR7,C.,131 

SPEC3570 



IF (lAP .Eg. 11 CALL NUTATE ( 3.9 ,9.4 , .2 ,PAR3 , 0 . , 19 1 

SPEC3580 



CALL NOTATEI .5, 9.1, .2, PAR 6,0. ,121 

SPEC3590 



CALL NOTATEI 3. ,9.1,. 2, PAR 2,0., 101 

SPEC3600 



CALL NOTAI Et 5. , 9 . 1 , . 2, P AK 5 , 0. , 1 7 1 

SPEC3610 

c 



SPEC3620 

c- 


MAKE INITIAL CALL TO CALPLT 

SPEC3630 



CALL CALPL7 (0.,0.,31 

SPEC3640 

c 



SPEC3650 

c 



SPEC3660 

c 


*LCuP* to read PLGT DATA FRCM RANDOM ACCESS, SCALE 

PLOT SPEC367j0 

c 


arrays, and Plot 

SPEC36B0 



DO 290 N8=1,N8L0CK 

SPEC3690 

c 



SPEC3700 

c 


DETERMINE SUc OF PLOT DATA BLOCK 

SPEC3710 



KPNTS = 15U0 

SPEC3720 



IF (N8 .Eg. 11 kPNTS -= IPNTS 

SPEC3730 



IF (N8 .Eg. NoLJCKI KPNTS=JPNIS 

SPEC3740 

c 



SPEC3750 

c 


REAo Plotting arrays from ranoom access 

SPEC3760 



CALL KEAOMS 120 , XPLUI U 1 , RPNT S , 1 PREC 1 

SPEC3770 



IPREC = IPRECH 

SPEC3780 



CALL REAUMS ( 20 , R1 ( 1 1 , KPNTS , 1 PRECl 

SPEC3790 



IPREC = iPKECH 

SPEC3800 

c 



SPEC3810 



DO 280 K=1,KPnTS 

SPEC3820 

c 



SPEC3830 

c 


SCALE PLOTTING ARRAYS 

SPEC3840 



XPLOTIKl = (XPLOTIKI-XMIM / XSCALE 

SPEC385C 



IF MAP .Eg. 1) RUK) = (R1 IKl-YMINI/YSCALE 

SPEC3B60 



IF (lAP .Eg. 21 RKKl = ( K 11 K 1*200.0 1/YPSC ALE 

SPEC3870 

c 



SPEC3880 

c 


PLOT POINTS 

SPEC3890 



CALL CALPLT ( XPLO T (K 1 , R 1 ( K ) , 2 1 

SPEC3900 

c 



SPEC3910 


280 

CONTINUE 

SPEC3920 


290 

CONTINUE 

SPEC3930 

c 



SPEC3940 

c 



SPEC3950 

c 


MOVE pen to origin OF NEXT PLOT 

SPEC3960 



CALL NFRAME 

SPEC3970 

c 



SPEC39BO 


295 

CONTINUE 

SPEC3990 


300 

CONT INUE 

SPEC4000 

c 



SPEC4010 


333 

GO TO 10 

SPEC4020 

c 



SPEC4030 

c 


terminating call to CALPLT 

SPEC4040 


999 

CALL CALPlT (0,0,9991 

SPEC4050 

c 



SPEC4060 



STOP 

SPEC4070 



END 

SPEC40aO 


67400000 

67500000 

67600000 

67700000 

67B00000 

67<i00000 

68000000 

68100000 

68200000 

68300000 

68400000 

68500000 

68600000 

68700000 

68800000 

68<700000 

60000000 

60100000 

69200000 

69300000 

69400000 

69500000 

69600000 

69700000 

69800000 

69900000 

70000000 

70100000 

70200000 

70300000 

70400000 

70500000 

70600000 

70700000 

70800000 

70900000 

71000000 

71100000 

71200000 

71300000 

71400000 

71500000 

71600000 

71700000 

71800000 

71900000 

72000000 

72100000 

72200000 

72300000 

72400000 

72500000 

72600000 

72700000 

72800000 

72900000 

73000000 

73100000 

73200000 

73300000 

73400000 

73500000 

73600000 

73700000 

73300000 

73900000 

74000000 

74100000 

74200000 

74300000 

74400000 

74500000 

74600000 
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PROGRAM TRANS U NPUT>20 1 laUTPUT^^Ol t T APES=:LNPUJ » TAP£6>=UUTPUT t TRANOOlO 

♦TAPE20=20i,TAPE7=3001) TRAN0020 

(;««««««*«**«««*•*«**««**«»«***«••«*«***«««**«**»«**««>«*•«***« A»*«******TRAN0030 

C* PURPOSE »TRAN004£ 

C* PREPKOCESSES THE COMBINEU TRANSDUCER SPECTRUM UATA *TRAN0050 

C« OUTPUT FROM PROGRAM RAMANI. THE REORGANIZED SPECTRUM «TRAN0060 

C* DATA (PRODUCED BY PROGRAM TRANS) IS THEN INPUT TO THE «TRAN0070 

C* rotor noise PRECICTIGN PROGRAM (RNPPEA) BY RANDOM «TRANOOBO 

C* ACCESS FILE. oTRANOOSO 

C* OTRANOIOO 

C* NAMELIST INPUT PARAMETERS «TRAN0110 

C» lOPIN - U COMBINED TRANSDUCER SPECTRUM DATA MILL «TRAN0I20 

C* BE INPUT BY MAG. TAPE *TRAN0130 

C* I CCHBINED TRANSDUCER SPECTRUM DATA WILL *TRAN0I40 

C« BE INPUT BY RANDOM ACCESS. (PROGRAM TRANS *TRAN0150 

C* IS JOB-STEPPED WITH PROGRAM RAMANli *TRAN0160 

C« -1 COMBINED TRANSDUCER SPECTRUM DATA HILL BE *TRAN0170 

C* INPUT BY DATA CARD «TRAN0I8C 

C* (IOPTN=0 IS DEFAULT MALUE) *TRAN0190 

L* MTRACKS - NUMBER CF POSITIONS OF COMBINED TRANSDUCER ♦TRAN0200 

C* SPECTRUM DATA. USMTRALKS£14) *tRAN02i0 

C* A *TRAN022Q 

C« OPTINAL INPUT (KANOUM ACCESSt TAPE. OR DATA CARD) *TRAN0230 

C* ICH - COMBINED SPECTRUM DATA POSITION NUMBER *TRAN0240 

L* (ISICHS14) OTRAN0250 

C* OELIF - BLADE LOADING FRtUUENCY (HZ. I »TRAN0260 

t* NSPCT - NUMBER OF SPECTRUM DATA POINTS PER POSITION •TRAN0270 

C* NRuAU - number OF BLOCKS (OF SIZE 1500J OF SPECTRUM *TRAN0280 

C* DATA FCINTS PER STATION *IRAN0290 

C* NuAMP - AN array DIMENSIONED AT LEAST 1500 CONTAIN- *TRAN030C 

C« ING THE SPECTRUM DATA AMPLITUDES »TRAN0310 

C* NUPHASE - AN ARRAY DIMENSIONED AT LEAST 1500 CONTAIN- *IRAN0320 

C* ING THE SPECTRUM DATA PHASES *TRAN0330 

C* ATRAN0340 

C* SUBROUTINcS used *tRAN0350 

C* NONE 4TRAN0360 

C* ♦TRAN0370 

C* *TRAN038O 

C* REMARK 4TRAN0350 

C* IF SPECTRUM DATA IS INPUT BY DATA CARO, FOLLOW THE *TRAN0400 

C* SPECIFIED FORMAT FOR EACH POSITKjN »TRAN0410 

C* card 1 - ICH (INTEGER FORMAT COLUMNS 3,41 *TRAN0420 

C* NSPCT (INTEGER FURMAT COLUMNS 6-lU) ♦TRAND430 

C* UELTF (G FORMAT COLUMNS 11-30) *TRAN0440 

C* CARD 2 - NUAMP IG FURMAT COLUMNS 1-201 *TKAN0460 

C* NUPHASE (G FORMAT COLUMNS 21-40) »TKAN0460 

C* *TKAN0470 

(, ««»*»**« ««««***«« *4^*^«*«*«4>«*»**TRAN04eC 

C TRAN0490 

COMMON SURE (750,14) ,NUAMP( 1500) , INDEX ( 987 ), RECl (4), 10(6) TKAN0500 

DIMENSION NUPHASE! 1500) TRAN0510 

EQUIVALENCE 1 STOKE ( 1 , 1 1 , NUPHASE ( I) ) TRAN0520 

C TRANOSiO 

REAL NUAMP, NUPHASE TRAN0540 

C IRAN0550 

namelist /input/ IQPTN, MTRACKS TRAN056C 

C TRAN057Q 

C OPEN RAnOOM access FILE. TRAN0580 

CALL dPENMS ( 20 , INDEX , So 7 , C ) TRAN0590 

C TRAN0600 

c Input namclist default parameter values tranobio 

iUPTN = 0 TRAN0620 

READ (5, INPUT) TRAN0630 

WRITE (6, INPUT) TKAN0640 

6 TRAN0650 

C TEol Fur RANDOM ACCESS INPUT TRAN0660 

IF lldPTi, .GT. 0) uO TO 50 ’ TRAN067C 

C TRAN0680 

, L spectrum DATA IS INPUT BY MAG TAPE TRAN0690 

C OR UATA CARO. TRANSFER CATA TO RANDOM ACCESS. TRAN07C0 

C TRAN0710 

NREC=1 TRAN0720 

C TRAN0730 

C .....LOCP FUR THE NUMBER CF SPECTRUM DATA POSITIONS TRAN0740 

UU 40 Ni-l ,MT.RAUKS TRAN0750 


100000 

200000 

300000 

400000 

500000 

600000 

700000 

300000 

900000 

1000000 

1100000 

1200000 

1300000 

14000()0 

1500000 

1600000 

1700000 

1800000 

1900000 

2000000 

2100000 

2200000 

2300000 

2400000 

2500000 

2600000 

2700000 

2800000 

2900000 

3000000 

3100000 

320D000 

3300000 

3400000 

3500000 

3600000 

37UOOOO 

3800000 

3900000 

4000000 

4100000 

4200000 

4300000 

4400000 

4500000 

4600000 

4700000 

RdOOOOO 

4900000 

5000000 

510(1000 

5200000 

530000C) 

5400000 

5500000 

5600000 

5700000 

5800000 

5900000 

6000000 

6100000 

6200000 

6300000 

6400000 

6500000 

6600000 

6700000 

6800000 

6900000 

7000000 

7100000 

7200000 

7300000 

7400000 

7500000 
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KfcAL) brATIUN lUEN i IHCAT ION RECORD AND RESTORE ID RECORD 
ON KANDOrt ACCESS HLE 

Uu RECORD MAY CCME FROM MAG TAPE OR CARDS) 

. IE (iOPTN .Eg. JJ GO TO 1C 
READ (i.iaOO) ICh.NSPCT ,U£LTE 
1000 FORMAT 1^15,020.10) 

NREAO = (NSPCr-l)/15D0 *■ 1 
GO To 15 

10 kEAu (7) lCri,uELTF,NSPCT,NREAD 
15.RcClU) = FLOAT(ICH) 

RECU2) = UELTF 
Rb.Clli) = FlOAUNSPCT) 

RECK',) = FLUaUNKEAD) 

CALL rRITMS (2U,RtCl 1 1 ) , a ,NKEC) 

NREC = NRECl 

, SET NUrtOER OF POINTS PER AMPLITUDE (OR PHASE) bLUCN 
INCLUDING SIZE OF FINAL bLOCK 
NPOIN = 1500 

MPOIN = NSPCT -lNREAD-1 ) *1500 

LOOP For the NUMdER CF DATA ELUCKS PER STATION ... 

DO 30 NR-1 iNREAD 

GHCCK FOR last bLCCK 
IF (NR .EO. NREAD) NPQ1N=PP01N 

TEST to DETERMINE TYPE OF SPECTRUM DATA INPUT 
(MAG TAPE uR DATA CARD) 

IF (lOPTN .EQ. 0) Gu TO 2C 

READ SPECTRUM DATA oLOcR 
READ (5,1010) ( NUAMP( 1 ) ,NDPhASb( 1) . Kl.NPUlN) 

1010 FORMAT (2020.10) 

GO ru 25 

20 READ (7) (NUAMP( U ,NDPHAS£ ( 1 ) ,1=1,NPC1N) 

TKANsFcK BLUCn 1NT(] Iwu RANUCM ACCcSS RECORDS 
(PHASE and AMPC I TCOE ) 

25 CALC WRITMS (20, NUAMP(l) ,NP0(N, NREC) 

NREC = NREC+l 

CALC nRITMS (20.NUPHASE ( 1) ,NPUlN,NkEC) 

NREC = NREC+l 
30 continue 

SMP REguRu RITH STEADY LOADING ANU OASPL 
IF (iUPTN .LI. 0) GO TO AO 
READ (7) 

AD CONTINUE 

GO T 0 dO 


SPECIRJM DATA IS INPUT BY RANDOM ACCESS 

READ STATION I DEN T IF ICA T ION RECORD 

50 NREC = 1 

CALL READMS I 20, RECi ( 1 ) ,A ,NREC) 

OELTF = RECI (2) 

NSPCT = IFIX (RECK3)) 

NREAD = IFIX (RECI (A) ) 


INITIALKE NECESSARY CCUNTERS AND POINTERS 

INITIAL RECORD NUMBER FOR REVISED SPECTRUM DATA 
80 NRCSUM = MTRACRS * (2*NR£AC+IJ ♦ I 
IREC = NRCSUM 

USING RECUKD SIZE CF LAST DATA BLOCK, DETERMINE NUMBER 
OF POINTS IN SECOND HALF OF LAST DATA BLOCK 
MPOIN = NSPCT - INREAD-II*1500 
J = (MPOIN-l 1/750 
JPNTS = MPOIN - J*750 


TKAN0760 
TKAN0770 
TRAN078C 
TRAN0790 
TRAN08C0 
TKAN08 10 
TRAN0820 
TRAN0B30 
TRANOBAO 
TKAN0850 
TRAN0860 
TRAN0870 
TRANOBBO 
TRAN0890 
TRAN0900 
TRAN091C 
TRAN0920 
TRAN0930 
TRAN09A0 
TKAN0950 
TRAN0960 
TRAN0970 
TRAN0980 
TRAN0990 
TRANIOOO 
TRANlOlO 
IRAN1020 
TRAN1030 
TRANIOAO 
TRAN1050 
TRAN1060 
TRAN1070 
TRAN1080 
TKANI090 
TRANllOO 
TRANU 10 
TRAN1120 
TRAN1130 
TRANUAO 
TRAN1150 
TkANllbO 
TRAN1170 
TRAN1180 
TRANK90 
TRAN1200 
TKAN12 10 
TKAN1220 
TRAN1230 
TRANI2A0 
TRAN1250 
TRAN1260 
TRAN1270 
TRAN1280 
TRAN1290 
TRAN13C0 
TRAN13 10 
TRAN1320 
TRAN1330 
TRAN13A.0 
TRAN1350 
TRAN1360 
TRAN1370 
TRAN1380 
TRAN1390 
TKANIAOO 
TRANIAIO 
TRANIA20 
TRANIA30 
TRANIAAO 
TRAN1450 
TRAN1A60 
TRAN1A70 


C DETERMINE SIZE OF THE LAST RECORD IN REVISED SPECTRUM 0ATATRANIA80 


L = ( JPNTS-D/250 


TRAN1A90 


LMEMB = JPNTS - L*250 


TRAN1500 


7600000 

7700000 

7800000 

7900000 

aoooooo 

aiooooo 

B200000 

BiOOOOO 

BAOOOOO 

8500000 

B600000 

B700000 

8BOOOOO 

8900000 

9000000 

9100000 

9200000 

9300000 

9A00000 

9500000 

9600000 

9700000 

9800000 

9900000 

10000000 

10100000 

10200000 

10300000 

lOAOOOOO 

10500000 

10600000 

10700000 

10800000 

10900000 

IIOOOOOO 

11100000 

11200000 

11300000 

IIAOOOOO 

11500000 

11600000 

11700000 

11800000 

11900000 

12000000 

12100000 

12200000 

12300000 

12A00000 

12500000 

12600000 

12700000 

12800000 

12900000 

13000000 

13100000 

13200000 

13300000 

13AOOOOO 

13500000 

13600000 

13700000 

13800000 

13900000 

lAOOOOOO 

lAlOOOOO 

14200000 

1A300000 

14AOOOOO 

1A500000 

1A600000 

1A700000 

1A800000 

14900000 

15000000 
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MiiOROS = MTKACKS^LMfcMB TRAN1510 

TRAN1520 

TRAN1S30 

tkanIsao 

SECTION TO REORGANIZE COMBINED SPECTRUM DATA TRANIS&O 

NEW RANDOM ACCESS RECORDS ARE FORMED BY GROUPING TRANlS&O 

25D AMPLITUDE (OR PHASE! VALUES FROM EACH POSITION. TRAN1570 

TRANlSaO 

OUTER LOOP FOR EITHER AMPLITUDE OR PHASE DATA. TRANI590 

DO 300 1=1(2 TRAN1600 

TRANI610 

INNER LOOR FUR THE NUMBER OF SPECTRUM DATA BLOCKS TRAN1620 

OF SUE 1500. TRANI630 

00 300 NR=lfNREAD TRAN16AD 

TRAN1650 

SET RECORD LENGTH FOR UNREVISED SPECTRUM DATA BLOCK - TRAN1660 

INCLUDING CHECK FOR LAST RECCRD ; ...i !■ ; r! ■ TRAN16TC 

NP01N.= 1500 TRANI680 

IF (NR .EQ. NKEAO) NP0IN=MP0IN TRAN1690 

TRANI700 

TRAN17I0 


..... INNER LUUK lU UIVlUt UNKtVi^CU ^RCt.lKUn UA1A . . . . . I K AN 1 I EU 

IN half (I.E. Two BLOCKS OF 750). TRAN1730 

DO 250 11=1,2 TRAN17A0 

TRAN1750 

SET RECORD LENGTH FOR REVISED SPECTRUM DATA BLOCKS TRAN1760 

NWORDS = 250*MTKACKS TRAN1770 

TRAN1780 

.....INNER LOOP FOR THE NUMBER OF COMBIAIEO SPECTRUM DATA TRAN1790 

POSITIONS. TRAN1800 

DO 200 NS=1,MTRACKS TRANIBIO 

SET record number POINTER. ALSO TEST IF AMPLITUDE OR TRAN1820 

PHASE DATA IS TO BE READ. TRAN1830 

■ NREC = INS-ll * (2*NREA0+U ♦ NR+NR TRAN16AO 

IF (1 .EO. 2) NREC = NREC+1 TRANI850 

TRAN1860 

KEAU BLuCK OF UNREVlStD AMPLITUDE OR PHASE DATA. TRAN1870 

CALL READMS (ZOiNUAMPUI.NPClNiNRECI TRAN1B80 

TRAN1890 

DETERMINE THE NUMBER OF POINTS IN FIRST (OR SECONOI HALF TRAN1900 
OF UNREVISED AMPLITUDE (OR PHASE! DATA BLOCK. TRAN1910 

IPNTS = 750 TRAN1920 

IF (NR .N£. NREAOI GO TO 100 TRAN1930 

IF (II .EU. 1 .AND. J .Eu. 1! GU TO 100 TKAN19A0 

IF (II .Ew. 2 .ANU, J .EC. Oi GU TO 300 TKAN1950 

IPNTS = JPNTS TRAN1960 

TRAN1970 

SET COUNTER FOR EITHER TFE FIRST UR SECOND HALF OF TRAN198D 

UNREVISED DATA BLOCK TKAN1990 

100 IPP =1 TRAN200C 

IF (11 .Ew. 2! IPP= 751 TRAN2010 

TRAN2020 


SEI counter fur number of points per STATION IN A REVISED IRAN203C 
RECORD. ALSO TEST TO UETERMINE HOW MANY REVISED RECORDS TRAN20A0 
»ILL BE made FROM FIRST (OR SECONO! HALF OF UNREVISED 0ATATRAN2050 


KMEMB = 250 , TRAN2Q60 

LL = 3 TRAN20TC 

IF (NR .to. NREAOI LL=L*1 TRAN2080 

TRAN2090 

INNER LOOP FOR CREATING LL AMPLITUDE (OR PHASE! TRAN2100 

RECORDS FOR FIRST (OR SECONCI HALF OF UNREVISED RECORD TRAN2110 

DO 160 N=1,Ll TRAN2120 

TRAN2130 

TEST FUR last RECORD TRAN2140 

IF (NR.NE.NREAD .OK. N.NE.LLl GU TO 130- TRAN21A5 

IF (J.Ew.O .OR. II.E(J.2I KMEM8=LMEMB TRAN2150 

C TRAN2160 

C SET POINTER FOR IMIIAL LOCATION IN SIORE ARRAY WHERE TRAN217C 

C AMPLITUDE (OK PHASE) VALUES SHOULD. BEGIN TO BE STORED TRAN2180 

130 NSTRT = 1N-U*N«URUS + INS-1J*KMEMB 

C TRAN2200 

L ...INNER TO store AMPLITUDE (OR PHASt) VALUES TRAN2210 

DO 150 IP=1, KMEMB TRAN2220 

NSIRT = NSTRT*1 TRAN2230 


15100000 
15200000 
15 300^0P_ 
I540(3060 
15560000 
15600000 
15700000 
1580^0(L 
15960006 
16000000 
16100000 
16200000 
16300000 
16400000 

16s66oo6 
16600000 
16700000 
16800000 
16900000 
17000000 
17100000 
17200000 
17300000 
17400000 
17500000 
17600000 
17700000 
17800000 
17900000 
18000000 
18100000. 
13200000 
18300000 
18400000 
18500000 
18600000 
18700000 
18800000 
18900000 
19000000 
19100000 
19200000 
19300000 
19400000 
19500000 
19600000 
19700000 
19800000 
19900000 
20000000 
20100000 
20200000 
20300000 
20400000 
20500000 
20600000 
20700000 
20800000 
20900000 
21000000 
21100000 
21200000 
21300000 
21400000 
21500000 
21600000 
21 700000 
21800000 
21900000 
22000000 
22100000 
22200000 
22300000 
22400000 
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• STJKE(NSTKT) = NUAMPllPPI 

ipp = Ipp+1 

ISO LtiNT INUE ' 

, ibU. CONT tl^Ut 


'200 CONTINUE 

• , KEStT NJMaEK OF POINTS PER STATION PER RECORD INDICATOR 
HftcMtl = 250. 


Inner loop to kiKiTE revised record 

KANDCH ACCESS FILE 


TO 


DU 250 N=lfLL 


SET POINTER FUR INITIAL LOCATION OF DATA TO BE WRITTEN 
‘ ' TO random access 

■ ' NN = ' IN-l'i *NrtOROS ♦ I 

tests fjk last record 

; IF INR.Nc.NREAu .OR. N.NE.LL) 00 TO 230 
IF I li.NE.2, .AND. J.NE.Oi 00 TO 230 
. KMEMB = LMEMct 
. V NMORUS := MHORUS 

.'230 CALl'wKITm's (2Uf STOREINNt .NmOROS.IREC) 

IREC = IRECVl 

250 C0NT1N0E ' ■ 


300 continue 


C 

C 

C 

c 

■c , 


CREATE ARRAV TO PASS NEEOED PARAMETERS TO PROGRAM 
RNPPEa BY MEANS OF RANDCM ACCESS 


NREC = 
lOIU = 
1012) ^ 
1013) 
10(4) = 
1015) ^ 
10(6) - 


mtracks 
NSPcr 
NRCSOM 
IREC 
LMEMB 

mworos 

CALL WRITMS' I20f lOU ) |6,NREC) 

NREC = 2 : 

CALL .WRI TMS .(20i0ELlFt I ,NREC) 

; STOP / , • ' ■ 

END 

PROGRAM RNPPt4 I INPU T=20 I ,QOTPUT=20l t TAPE5= I NPUT , TAPE6=0UTPUT , 
♦TAPE20=201 rTAPE4=l00l) 


TRAN2240 
TRAN2250 
TRAN2260 
TRAN2270 
TRAN22B0 
TRAN2290 
TRAN2300 
TRAN2310 
TRAN232U 
THAN^330 
TRAN2340 
TRAN2350 
TRAN2360 
TRAN23 70 
TRAN236C 
TRAN2390 
TRAN2400 
TRAN2410 
TRAN2420 
TRAN2425 
TRAN2430 
TRAN2435 
TRAN2440 
TRAN2450 
TRAN2460 
TRAN2470 
TRAN24B0 
TRAN2490 
TRAN2500 
THAN2510 
TRAN2520 
TRAN2530 
TRAN2540 
TRAN2550 
TRAN2560 
TRAN2570 
TRAN2580 
TRAN2590 
TRAN2600 
TRAN2610 
TRAN2620 
TKAN2630 
TRAN2640 
TRAN2650 
TRAN2660 
TRAN2670 
TRAN268C 
RNPPOOlO 
RNPP0020 


C****************'******«*«*************************«**‘*********»********RI<IPP0030 


C* 

C* ; 

c* 
c* ' 
c* • 

c* 

C*' 

c* 

c* 

c*. 

c*. 

c* • 

c* 

Cf 

c* 

c* 

c* 

C4 , 

c* , 

c* 

c* 

c*' 


PURPOSE ARNPP0040 

,10 COMPUTE THE ROTOR ROTATIONAL NOISE FOR A HOVERING 4RNPP0050 
HELICOPTER. SCONO PRESSURE LEVELS ISPL) ARE COMPUTED 4RNPP0060 
AT EACH HARMONIC USING MRIGHTS SOLUTION. THE BLADE VRNPP0070 
-loading harmonics IBLH) CAN BE OBTAINED BY 1NTEGRAT1NG4RNPP0080 


' OVER ALL OR PART CF THE STEADY LOADING DISTRIBUTION 
'the SPL values generated AT THE VARIOUS HARMONICS 
CAN BE ADJOSTEC BY APPLYING CN& OF FIVE SPECTRUM 
- CHORD DISTRIBUTIONS 

NAMELIST Input parameters 


ROTOR NAMELIST (FIXED PARAMETERS) 


NSPL 


EFMACH 
UBSEL V 
EFPTCH 
0 BSD IS 
NB 


NUMBER OF SOUND PRESSURE LEVELS PLOTS TO 
BE DETERMINED WITH THESE ROTOR PARAMETERS 


♦RNPP0090 
4RNPP010C 
♦RNPPOllO 
4RNPPD120 
*RNPP0130 
♦RNPP0140 
•RNPP0150 
*RNPP0160 
♦RNPPOl 70 
*RNPP0180 


(USUALLY NSPL = (NUMBER OF COMBINED SPECTRUMVRNPP0190 

data P0SIT10NS)«^(NUMBER of integration *KNPP0200 

DESIRED)) VRNPP0210 

INSPL=6 IS OEFALLT VALUE) *RNPP0220 

EFFECTIVE RADIAL MACH NUMBER KRNPP0230 

OBSERVER ELEVATION ANGLE (RADIANS) WRNPP0240 

EFFECTIVE BLADE PITCH (RADIANS) *RNPP02S0 

OBSERVER DISTANCE FROM ROTOR CENTER (FT.) 4RNPP0260 

NUMBER OF BLADES *RNPP0270 


22500000 
22600000 
22700000 
22800000 
22900000 
23000000 
23100000 
23200000 
23300000 
23400000 
23500000 
23600000 
ZilQOOOO 
23800000 
23900000 
24000000 
24100000 
24200000 
24300000 
24400000 
24500000 
24600000 
24700000 
24800000 
24900000 
25000000 
25100000 
25200000 
25300000 
25400000 
25500000 
25600000 
25700000 
25800000 
25900000 
26000000 
26100000 
26200000 
26300000 
26400000 
26500000 
26600000 
26700000 
26800000 
26900000 
27000000 
27100000 
27200000 
27300000 
27400000 
27500000 ■ 
27600000 
27700000 
27800000 
27900000 
2B000000 
28100000 
28200000 
28300000 
28400000 
28500000 
28600000 
28700000 
28800000 
28900000 
29000000 
29100000 
29200000 
29300000 
29400000 
29500000 
29600000 
29700000 
29800000 
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c* 

c* 

c* 

c* 

c* 

t* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

t* 

t* 

c* 

c* 

c* 

c* 

c* 

t* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

L* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

t* 

c* 

c* 

c* 

c* 

c* 

L* 

c* 

c* 

c* 

c* 

L* 

c* 

c» 

c-» 

c* 

c* 

c» 

c» 


(NB=4 iS DEFAULT VALUFi *RNPP02aO 

- TOTAL LIFT (WEIGHT Of HELICOPTER) (LBS.) ♦RNPP0290 

- TOTAL ROTOR DRAG FORCE (LBS.) *RNPP0295 

- SPEED OF SOUND (FT./&EC.) *RNPP0300 

(C-1CB4.B IS DEFAULT VALUE) *RNPP03K) 

- ROTOR ROTATIONAL SPEEiD IRPM) ♦RNPP0320 

- BLADE PASSAGE FREaUENCY IRPS) *,RNPP0330 

- EFFECTIVE BLADE RADIOS (FT.) *RNPP03A0 

- EFFECTIVE BLADE CHORD (FT.) *RNPP0350 

- HAXIHLN FRECUENCy OF AVAILABLE FLIGHT POINT *RNPP0360 


LOADING DATA IRPS) «RNPP0370 
(XHAX^IOOO.O LS DEFAULT VALUE) ARNPP0380 
OBSERVER AZIMUTH ANGLE (RADIANS) *RNPP0390 
AN ARRAY DIMENSION LA (FOR THE MAXIHUN ARNPPOAOO 
NUMBER OF CCMBIKEO SPECTRUM DATA POSITIONS) *RNPP04L0 
CONTAINING THE STEADY LOADING COEFFICIENTS •RNPP0420 
FOR EACH OF THE SPECTRUM DATA POSITIONS ♦RNPP0430 
ISTDYLOI I)=0.0 IS DEFAULT VALUE ISIslA) FRNPP0440 
AN ARRAY DIMENSION LA I FOR THE HAXIMUN FRNPP04S0 
NUMBER OF COMBINED SPECTRUM DATA POSITIONS) •RNPP0460 
CONTAINING THE RELATIVE SPECTRUM DATA *RNPP0470 
POSITIUNS. the RP array MUST BE STRICTLY FRNPP04BD 
INCREASING AND CSRPil)<l FOR ALL I. VRNPP0490 
IRP(I)=Q.O IS DEFAULT VALUE IAIS14) ♦RNPP0500 
0 CCMBINEU SPECTRUM DATA IS TO BE INPUT AND FRNPPOSIO 


♦RNPP0430 

FRNPP0440 

♦RNPP0450 


USED TO COMPUTE BLADE LOADING HARMONIC ♦RNPP0520 
COEFFICIENTS (8LH) FRNPP0530 

- I BLH COEFFICIENTS AND PHASE ANGLES ARE TO *RNPP0540 

BE COMPUTED INTERNALLY BY MEANS OF AN FRNPPOBSO 

INLINE FUNCTICN *RNPP0560 

(I6LHCPT=0 IS default VALUE) FRNPP0570 

♦RNPPOSBO 

optional input FRNPP0590 

♦RNPP0600 

INPUT namelist (TO BE USED WITH SPECTRUM DATA *RNPP06I0 

INPUT. THE PARAMETERS IN THIS NAMELIST MUST FRNPP0620 
BE REDEFINED fCR EACH SET OF BLH COEFFICIENTS *RNPP0630 
AND PHASE ANGLES BEING COMPUTED.) •RNPP0640 

nTEURAI - 0 NC INTEORATIUN of the steady LOADING OIST .WRNPPOBSO 
IS TO BE PERFORMED «RNPP0660 

K STEADY LOADING OIST. IS INTEGRATED FROM ♦RNPP0670 
ZERO TO THE NTH COMBINED SPECTRUM UATA *RNPP0680 

POSITION (CZKSMTKACKS) FRNPP0690 

- -I STEADY LCAOING OIS'T. IS TO INTEGRATED z-KNPPOTOO 

ALONG A fraction OF THE CHORD BUT NOT AT FRNPP0710 
ONE OF THE COMBINED SPECTRUM DATA PUSI T I 0NRNPP072O 
(NTtCRAT=0 IS DEFAULT VALUE) *RNPP0730 

ITRACX. - NUMBER OF THE SPECTRUM DATA POSITION ♦KNPP0T40 

UF INTEGRATION IS DESERIRED SET ITRACX=1) *RNPP0750 
(ITRACK=l IS DEFAULT VALUE). FRNPP0760 

PRTLINT - FRACTION uF CHORD ALONG WHICH THE STEADY *RNPP0770 

LOADING UIST. IS TC BE INTEGRATED. *RNPP0780 

10<PRTLINT<U *RNPP0790 

(PRTLINT=1.0 IS DEFAULT VALUE) •RNPPOBOO 

LO - STEADY LOAUING COEFFICIENT FOR THE iTRACK •RNPP08I0 

IIH) SPEClRUM DATA PUSITION *RNPP0820 

iLO=C.O IS DEFAULT VALUE) YRNPP0B30 

ICHuKO - DETERMINES WHICH CHORD DISTRIBUTION F0NCTI0N*RNPP0840 

IS CSED TO CORRECT SPL VALUES *KNPP0850 

0 POINT LDACING DATA IS USED UNCORKECTED *RNPP0860 

1 rectangular spectrum function *RNPP0870 

2 HALF-CDSINE spectrum function <=RNPP0880 

3 TRIANGULAR SPECTRUM FUNCTION *RNPP0890 

4 SAWICUIH SPECTRUM FUNCT ION *RNPP0900 

(IChORD=0 IS DEFAULT VALUE) *RNPP0910 

InCUF - BLH COEFFICIENT OUTPUT CONTROL PARAMETER *RNPP0920 

= K EVERY N-lITh) BLH COEFFICIENT AND PHASE *KNPP0930 


ANGLE WILL BE OUTPUT UF X= I ALL BLH *RNPP0940 
CCEFFICIENTS WILL BE OUTPUT) *RNPP0950 

(INCCF=5 IS UEFAULT VALUE) ♦KNPP0960 

*RNPP0970 

INBLri NAMELIST (TO BE OStOwHcN BLH COEFFICIENTS *KNPP098D 
AND PHASE ANuLES ARE INTERNALLY COMPUTED. THE ORNPPOSSO 
PARAMETERS IN THIS NAMELIST MUST BE REUEFINED *RNPP10C0 


29900000 

30000000 

30100000 

30200000 

30300000 

30400000 

30500000 

30600000 

30700000 

30800000 

30900000 

31000000 

31100000 

31200000 

31300000 

31400000 

31500000 

31600000 

31700000 

31800000 

31900000 

32000000 

32100000 

32200000 

32300000 

3Z400000 

32500000 

32600000 

32700000 

32B00000 

32900000 

33000000 

33100000 

33200000 

33300000 

33400000 

33500000 

33600000 

3370000D 

33800000 

33900000 

34D00000 

34100000 

34200000 

34300000 

34400000 

3‘t500000 

34600000 

34700000 

34B00Q00 

34900000 

35000000 

35100000 

35200000 

35300000 

35400000 

35500000 

35600000 

35700000 

35800000 

35900000 

36000000 

36100000 

36200000 

36300000 

36400000 

36500000 

36600000 

36700000 

36800000 

36900000 

37000000 

37100000 

37200000 
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L* 


Fuk EACH SET OF BLH COEFFS. THAT ARE DESIRED) 

4RNPP1010 

C* 

N8LHP T 

- NUMBER JF BLH CCEFF1E.NTS AND PHASE ANGLES 

*RNPP 1020 

c* 


TO BE COMPUTED. I 1<NBLHPT$2000) 

•RNPP1030 

c» 

X , C 

- Two INPUT CONSTANTS USED IN DEFINING THE 

♦RNPP1040 

c* 


BLH COEFFICIENT INLINE FUNCTION. 

♦RNPP1050 

C* 


BLH(Y) = C / Y»*X 

♦RNPP1060 

c« 

ICHURD 

- SAME AS DESCRIBED ABOVE 

♦RNPP1070 

c» 

INCUF 

- SAMc AS UESCRI8ED ABOVE 

4RNFP1080 

L* 



#RNPP1090 

c* 

RANDUn ACC 

ESS INPUT PARAMETERS 

♦RNFPllCO 

c* 

M TRAlRS 

- NUMBER OF COMBINED SPECTRUM DATA POSITIONS 

*RNPP11 10 

c» 


(KMTRACKS< 14) 

♦RNPP1120 

c» 

NSPC r 

- number of spectrum data POINTS PER POSITION 

♦RNPP1130 

c* 

NRCSJM 

- BEGINNING AND ENDING RANDOM ACCESS RECORD 

*RNPP1140 

L» 

KREC 

LOCATILNS FOR TFE REVISED SPECTRUM DATA 

»RNPP1150 

C* 

MPOIN 

- rECORu sue of the last spectrum data RANU0M4RNPPI160 

c* 

rtwURUi 

- ACCESS RECORD (WITH AND WITHOUT INTEGRATION 

)*RNPP1170 

c* 

SPElTrA 

- AN ARRAY DIMENSION 250X16 CONTAINING THE 

t'RNPPlieO 

c* 


revised spectrum data BLOCKS 

*RNPP1 190 

c* 



♦RNPP1200 

c* 

SUBRUJT (Nu 

L USED 

♦RNPP12 10 

c* 

SPLS 


♦RNPP 1220 

c* 

CSIUNI 


♦RNPP1230 

(.* 

BSSlS 


*RNPP1240 

c* 



♦RNPP1250 


CuhMU.'i St'hCrKAC^SO. loj , et<cSSUrt(250» ,PhASt4 ^50) i kfcPRE SS ( ^ 000 J t 
♦■KcPHAit(^OOO) , ALPHA (2000) 

UIMLNSION INDcX('4d/) t 10(61 

UIMENAlLiH ST0YLa( l<tl .CP( 16) , rU6) .XPP( 171 > YPP( 17) .RP( 16) .MK( 700) , 
♦■XlNTlbl) ,Y1NI(71 ) 

OIMEiYA Ion dj (2000) f SPL( t>00) t ALIM I M 500) .AMbN(500) 


EgUIVALENCE 
EUUl valence 
EUU l VALEi<<CE 
cUOl VALENCE 
EOOI valence 
EQUIVALENCE 
EUUI VAllNCE 


(aoU) ,SP£CTHA(1,1I) 

(aPl ( 1) , SP£CIRA( l,S) ) 
(AL1M1T( 1) .SPECTRA! 1,11) ) 
(AHbN( 1) .SPECTRA) 1,13)) 
(XlNT( 1) .ALPhA(l) ) 
(VlNT(l).ALPHAIlOOl)) 

(nK< 1) .REPHASEd ) ) 


OAIA PO/.OUOUOO",!//, 
♦ SgRI2/1.4lA2U5o23/ 


KAU1AN/57.2S577513/, PI /3. 141 59265359/ , 


(,«*«*«*«*»«*«»*«**«#»««*««** «**»«*»«*«**««***» •*»«««rNPP1260 
C RNPP1270 

RNPP1280 
RNPP1290 
RNPP1300 
RNPP1310 
RNPP1315 
RNPP1320 
RNPP1330 
RNPPl 340 
RNPP1350 
RNPP136C 
RNPP1370 
RNPP1372 
RNPP1374 
RNPP1375 
RNPP1360 
RNPP1390 
RNPP1400 

C RNPP1410 

C RNPP1420 

RNPP1430 
RNPP1440 
RNPP145D 
RNPP1460 
RNPP1470 
RNPP1480 
RNPP1490 
RNPP1500 
RNPP1510 
RNPP1520 
RNPP1530 
RNPP1540 
RNPP1550 
RNPP1560 
RNPP1570 
RNPP1580 
CMPLXIRNPP1590 
RNPP1600 
RNPP1610 
RNPP1620 
RNPP1630 
RNPP1640 
RNPP1650 
RNPP1660 
RNPP167C 
RNPP1680 

NSPL = 6 RNPP1690 

NB = 4 RNPP1700 


INTEGER g, ASKPO r, STEP, SUB 
real k t , r g , K o wMO , M Bt> j , l u 

complex El ,TERH0,TERM1 , TERN2.TERM3, FIRST, ZERO, SECOND , THIRIS, £ IQ 1 

NAMELIST /ROTOR/ NSPL, E FM ACH , OBS ElV , EFPTCH, OBSD IS ,NB, T HRUS I , 

1 TORQtJE ,C,RS, F, EFR AO , EFCORO , XM AX, 0BSA21 , STDVLO, RP , 1 BLHOPT 

2 /IhPUT/ NTEGRAT,lTRACK,PK)LlNT,LO,iCHURD, INCUF 

3 /INBLH/ NBLHP1 ,C,X, ICHUKO, INCUF 

DEFINE THE RECTANGULAR DISTRIBUTION FUNCTION 
CHUROllM) = S1N(M*6PIFTU) / (M*bPlFTO) 

DEFINE HALF COSINE SPECTRUM FUNCTION 
CH0RD21M) = COS(M*BPIFTO) / ( 1.0-M*M*Sti2BFTD) 

DEFINE TRIANGULAR SPECTRUM FUNCTION 
CriJRU3(M) = ((SlMrt*BPIFTC2)/IM*ePIFT02))P*2) 

OtFINE SARlUUTh SPECTRUM FUNCTION 


CHURU4(M) = CAoS I (l.U.O.C) - 
^ 0.0, M^CEBPIFT) ) / 

define OPTIUNALLY CSEO 
BLH(Y) = C / Y*»X 


CEXPICMPLXI 0.0,M*C2BPIFT) ) 
(M*M*SQBPIFT) 

BLH COEFFICIENT FUNCTION 


OPEN THE RANDOM ACCESS FILE 
CALL OPENMS 1 20 , INDEX , 987 , 0 ) 


ROTOR NAMELIST DEFAULT PARAMETER VALUES 


37300000 

37400000 

37500000 

37600000 

37700000 

37800000 

37900000 

38000000 

38100000 

38200000 

38300000 

38400000 

38500000 

38600000 

38700000 

38800000 

38900000 

39000000 

39100000 

39200000 

39300000 

39400000 

39500000 

39600000 

39700000 

39800000 

39900000 

40000000 

40100000 

40200000 

40300000 

40400000 

40500000 

40600C00 

40700000 

40800000 

40900000 

41000000 

41100000 

41200000 

41300000 

41400000 

41500000 

41600000 

41700000 

41800000 

41900000 

42000000 

42100000 

42200000 

42300000 

42400000 

42500000 

42600000 

42700000 

42800000 

42900000 

43000000 

43100000 

43200000 

43300000 

43400000 

43500000 

43600000 

43700000 

43800000 

43900000 

44000000 

44100000 

44200000 

44300000 

44400000 

44500000 

44600000 
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' APPENDIX G 


.C = 0.108<»aEO^ 

XMAX = 1.0E03' 

OU 3 ;.£ = ltl6 

IF i I .EE. 14) STOrLOU )=0.0 
RP(i) = 0.0 
5 .CONIINUE . ■ ' 

IBLHOPT =0 

c ■ 

C READ AND WRITE FIXED PROGRAM PARAMETERS AMO CHECK 

C FOR EOF' 

10 REAU (S.ROTOR) 

IF (EOFtS) 999,20 


RNPP1710 

RNPP1720 

RNPP1730 

RNPP1740 

RNPP1750 

RNPP1760 

RNPP1770 

RNPP1760 

RNPP1790 

RMPP1800 

RNPP1810 

RNPP1820 


44700000 

44800000 

44900000 

43000000 

43100000 

45200000 

43300000 

43400000 

43300000 

43600000 

43700000 

43800000 


Zd WRITE 16,R0TURV 


COMPUTE MAXIMUM NUMBER OF BLH COEFFICIENTS DESIRED 
HMAX=XMAX/F 
NN=MMAX«-20 

DEFINE COMPLEX NUMBER I 
EI=CMPLXI0.,1.) 

COMPUTE spectrum DISTRIBUTION FUNCTION PARAMETERS 
TWUPI = PI«-PI 

TO = EFCORU / IT«OPI*EFRAC*F) 

SQ2BFTO = 4.0 * (NB*F6T0)**2 
BPIFTO = NB*PI*F*T0 
BPIFT02 = BPIFTU / 2.0 
'SOBPIFT. =. BPIFTU • BPIFTO * 2.0 
eZBPlFT = -2.0 • BPIFTO 

COMPUTE MAXIMUM NUMBER OF HARMONICS 
S = £FMACH*NB*CUS(UBS£LV) 

MAXHAR = (MMAX-10) / 1N8«1.2S*SI 

COMPUTE THRUST OPERATING AND TOROUE OPERATING CONSTANTS 
FTHRUST =F*THRJST 
COBSOIS =.C*OBSOIS 
EFOKAG = .TORgUE/EFRAO 
•KT = FTHRUST/CUBSOIS * SIMOBSELWJ 
KQ = F*EF0RAG ./ ( CObSOI S*£FMACH) 


, TEST TO determine IF BLAUE LOADING HARMONIC 

(BLH) COEFFICIENTS ARE TC BE INTERNALLT COMPUTED. 

■ IF I IBLHOPT '.NE. 01 GO TO 22 

READ lUENTIFICATiCN RECORD AND BLADE PASSAGE FREOUENCY 

NReC =1 

CALL REAOMS (2D, ID! 1 ) ,6 , NREC) 

NREC = 2 . . 

CALL REAOMS (2 0 , OELTF , 1 , NREC ) 

DELTF2 = OELTF/2. 

determine number CF tracks (INCLOaiNG ENDPOINTS FOR 
INTEGRATION) 

MTRACKS f TDI 1 )«-2 

Set TuTAL number CF SPECTRUM POINTS IPER STATION) 

NSPCT = IDI2) 

• : SET counter FOR- NUMBER OF RAMOOM ACCESS READS 

NRCSUM = 10(3) 

RRcC = ID! 4) 

NDIFF = KREC-NRCSUM 
NREAO = NOIFF/2 
NREAD2 = NrEAD«2 

■ NRSUM3 = NRC SUM-3 

SET record sue for LAST RANDOM ACCESS READ (WITH AND 
■ WITHOUT INTEGRATICN) 

MPOIN = 10(5) 

MWOROS = IDT o) 


LOOP FOR number CF SOUND PRESSURE LEVEL PLOTS 

22 DU in NS=1,NSPL 


! INPUT. OR INBLH NAMELIST DEFAULT PARAMETER VALUE 


RNPP1830 
RNPP1840 
.RNPP1830 
-RNPP1860 
RNPP1B70 
RNPP18B0 
RNPP1890 
RNPP1900 
RNPP1910 
RNPP1920 
RNPP1930 
RNPP1940 
RNPP1950 
RNPP1960 
RNPP1970 
RNPP1980 
RNPP1990 
RNPP2000 
RNPP2010 
RNPP2020 
RNPP2030 
RNPP2040 
RNPP2050 
RNPP2055 
RNPP2060 
RNPP2070 
RNPP2080 
RNPP2090 
RNPP2100 
RNPP21 10 
RNPP2120 
RNFP2130 
RNPP2140 
RNPP2150 
RNPP2160 
RNPP217C 
RNPP2180 
RNPP2190 
RNPP2200 
RNPP2210 
RNPP2220 
RNPP2230 
RNPP2240 
RNPP2250 
RNPP2260 
RNPP2270 
RNPP2280 
RNPP2290 
RNPP2300 
RNPP2310 
RNPP2320 
RNPP233C 
RNPP2340 
RNPP2350 
.RNPP2360 
RNPP2370 
.RNPP2380 
RNPP2390 
RNPP2400 
RNPP2410 
RNPP2420 
RNPP2430 


45900000 
46000000 
46100000 
46200000 
46300000 
46400000 
46300000 
46600000 
46700000 
46800000 
46900000 
47000000 
47100000 
47200000 
47300000 
47400000 
47500000 
47600000 
47700000 
47800000 
47900000 
48000000 
48100000 
48200000 
48300000 
48400000 
48500000 
48600000 
48 700000 
48800000 
48900000 
49000000 
49100000 
49200000 
49300000 
49400000 
49500000 
49600000 
49700000 
49800000 
49900000 
50000000 
50100000 
50200000 
50300000 
50400000 
50500000 
50600000 
50700000 
50800000 
50900000 
51000000 
51100000 
51200000 
51300000 
51400000 
51500000 
51600000 
51700000 
51800000 
51900000 
52000000 
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MfcijKAT = 0 
IIKACK = 1 
PKlLl.»r = 1.0 
LU = 0.0 
ICrtUKO = 0 
INCUF = D 


C rtil TU OtTfcKMliMt CPrUJNAL BIH INPUT 

IP UtJLHUPT .to. 0) UU IG 2o ■ 

READ (a.lNULH) 

IF (fcJF.al •i'i'i.Zi 
WKlTc Ib.INdLHJ 
UU TO ^0^ 


INIIAL.UE kANUUM ACCESs' KtCUkO COUNTERS AND RECORD 
SUES (RlTH AND hlThCUT iNTECRATIUNJ 
2d IREC = NRCSUrt 

JREC = iKEC+NKtAO 
NRVSUM = j 

IF INRSUMJ .LT. NREAD2J NRVSUM = NRC SUM+NRE AD2+ 1 
, NREc = NRVSUM 
MR£C ^ NREC+NKEAD 
NPQIN = 250 
NWuROj = NPUIN*lU(l) 

READ M.<IU WRITE VARIABCE INPUT PARAMETERS AND CHECK 
FOR EOF. 
read tSflNPUT) 

IF (EOF, 5) V9y,j0 
iO WRITE Ib.lNPUTi 

TEST FUR CHORD INTEURATICN 
IF iNTEURAT .Eu. OJ Do TO 200 


INTEGRATION OVER CHORD 

SET independent VARlAbCE ARRAV IINCCUDLNG ENDPOINTS) 
IPRTL = 0 
CP(I) = u.O 
Du Au I=2 iM(RACrS 

TEST TO determine POSITION OF FRACTIONAL CHORD 
integration constant 

IF InTEGRAT .uT. 0) GO rc 35 

IF lIPRTi. .Eg. 0 .AND. RP(I) .GT. PRTLINTl IPRTL=I 
35 CPI II = RP I 1 )*tFCORU 
AO CONTINUE 

determine PERCENTAGE of CHORD INTEGRATED 
PRCNTGR = 100.0»PR TLINT 

TEST FUR PARTIAL CHUKD INTEGRATION 
IF INTEGRAT .GT. OJ GU TC 70 

SET UP INOEPENUENT VARIABLE ARRAV IINCLUDING ENDPOINTS) 
MTPl = MTRACKS+I 
11=1 

DU oO I=1,MTPI 
IF (1 .NE. IPkTL) GU TO 50 
XPPII) = PRTLINT*EFCURD 
PRTLINT = XPPII) 

GO TO 60 

50 XPPII) = CPI II ) 

1 I = I I*I 
60 CONTINUE 

ZERO THE DEPENDENT VARIAELE AT TH& ENDPOINTS 
70 00 60 I=lf250 

SPEcTRAII,!) = 0.0 
SPECTRA! I .MTRACKS) = U.O 
80 CONTINUE 

C CREATE INDEPENDENT VARIABLE ARRAV NECESSARV IN 


RNPP2AA0 

RNPP2A50 

KNPP246C 

RNPP2470 

RNPP2480 

RNPP2490 

RNPP2500 

RNPP2510 

RNPP2520 

RNPP2530 

RNPP2540 

RNPP2550 

RNPP2560 

RNPP2570 

RNPP2580 

RNPP2590 

RNPP26UO 

RNPP2610 

RNPP2620 

RNPP263C 

RNPP2640 

RNPP2650 

RNPP2660 

RNPP267C 

RNPP2680 

RNPP2690 

RNPP2700 

RNPP2710 

RNPP272C 

RNPP2730 

RNFP2740 

RNPP2750 

RNPP2760 

RNPP2770 

RNPP2780 

RNPP2790 

RNPP2800 

RNPP2810 

RNPP2820 

RNPP2830 

RNPP2840 

RNPP2650 

RNPP2860 

RNPP2870 

RNPP2880 

RNPP2890 

RNPP2900 

RNPP2910 

RNPP2920 

RNPP2930 

RNPP2940 

RNPP2950 

RNPP2960 

RNPP297C 

RNPP2980 

RNPP2990 

RNPP3000 

KNPP3010 

RNPP3020 

RNPP3030 

RNPP3040 

RNPP3050 

RNPP3060 

RNPP3070 

RNPP30S0 

RNPP3090 

RNPP3100 

RNPP3110 

RNPP3120 

RNPP3130. 

RNPP3140 

RNPP3150 

RNPP3160 

RNPP3161 


52100000 

52200000 

52300000 

52400000 

52500000 

52600000 

52700000 

52800000 

52900000 

53000000 

53100000 

53200000 

53300000 

53400000 

53500000 

53600000 

53700000 

53800000 

53900000 

54000000 

54100000 

54200000 

54300000 

54400000 

54500000 

54600000 

54700000 

54800000 

54900000 

55000000 

55100000 

55200000 

55300000 

55400000 

55500000 

55POOOOO 

55700000 

55800000 

55900000 

56000000 

56100000 

56200000 

56300000 

56400000 

56500000 

56600000 

56700000 

56800000 

56900000 

57000000 

57100000 

57200000 

57300000 

57400000 

57500000 

57600000 

57700000 

57800000 

57900000 

58000000 

58100000 

58200000 

58300000 

58400000 

58500000 

58600000 

58700000 

58800000 

58900000 

59000000 

59100000 

59200000 

59300000 

59400000 
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C COMPOTlPiG INTbGRATEO (AVERAGEUi PHASE UATA. 

INTP = IFIXtSl.O • PKTLINT) , 

IF (INTP ,LE. Oi XNTP=1 
C 

XINTUl ° 0.0 

OXINT = EFCORO / FLOAT! INTP) 

00 US INTP . 

XlNTd) = XInTII-11 *■ DXINT 
U5 CONTINUE 

XINT(INTP) = PKTLINT * EFCOKO 


.......... LOOP FOR THE NUN 6 ER OF RANOCM ACCESS READS...... 

00 190 NR°ltNREAC 

CHECK FOR LAST READ (ANO ADJUST RECORD SIZE) 

IF (NK .NE. nREAUI GO TO 90 
NPOIN = MPOIN 
NMOKOS = NUOkOS 

KEAU SPECTRUM DATA (ANO INCREMENT COUNTER) 

90 CALL REAOMS ( 20. SPEC TKA U i 2) f NMOKOSf IKEC) 

IREC = IREC*l 

USE STEADY LOADING VALUES FOR FIR&T »SEIP OF KNOWN 
SPECTRUM DATA POINTS 
IF (NR .NE. I) GO Tu 110 
MT = MTRACkS- 2 
DO 100 l-I (MT 
(PI = !♦! 

SPECTRA(l.lPI) = STOYLO(I) 

100 CUNilNUE 


.....LOOP TO INTERPOLATE ANU INTEGRATE PRESSURE DATA.... 
110 00 ISO I=l,NPuIN 
Iw = -1 

USE SPECTRUM DATA TO CONSTRUCT INTEGRATION 
.(UR INTERPULATiCN) NODE POINTS 
OU 120 K=l,MtKACKS 
T(K) > SPECTKaTI.K) 

120 CONTINUE 

TEST FOK PARTIAL CHuRO INTEGRATION 
IF (NTEGRAT .GT. 0) GO TC 12S 

INTERPuLATE FUR PARTIAL CHCRD INTEGRATION 

CALL CSIUNI (Ib.MTKACKStl.l.lfCPtT.PRTLlNT.FX.lW.HK.IEKR) 

CUNgTKUCT PARTIAL CHOKU INTEGRATION NODE POINTS 

II = 1 

DU 122 K=l,MTPi 
IF (K .Nt. IPRTD GO TO 121 
YPP(K) = FX 
GO TO 122 

121 YPP(K) = T ( 1 1) 

' I 1 = I I + l 

122 CUNTINUE 

■INTEGRATE OVER PARTIAL CHORD 
IW = -1 ' . 

CALL SPLS ( l/.MTPlf l.XPPfYPP. If 1PRTL.PR0X4N. IW.HK, lERK) 

GO TO 128 

INTEGRATE OVER ENTIRE CHORD OR OVER PARTIAL CHORD 
IF CHuRD FRACTION IS CNE CF SPECTRUM DATA POSITIONS 
125 CALL SPLS (I6tMrRACKStl.CFfT«ltNTEGRATtPKUXlN.lh.HK, lEKR) 
12U PRESSUR(l) = PROXIN 
130 CONTINUE 

IF (NR .£0.1) LU = PRESSUR(l) 


WRITE INTEGRATED VALUES TO RANDOM ACCESS 
Call nKITMS (2UfPKESSuKt D fNPOlNtNREO 
nREC = NREC+1 


KNPP3162 
RNPP3163 
RNPP3I64 
RNPP3165 
RNPP31G6 
RNPP3167 
RNPP316S 
RNPP3169 
RNPP316A 
RNPP31GB 
RNPP316C 
RNPP317.0 
RNPP3180 
RNPP3190 
RNPP3200 
RNPP3210 
RNPP322X) 
RNPP3230 
RNPP32A0 
RNPP3250 
RNPP3260 
RNPP3270 
RNPP3280 
RNPP3290 
RNPP3300 
RNPP3310 
RNPP3320 
RNPP3330 
RNPP3340 
RNPP3350 
RNPP336D 
RNPP3370 
RNPP3380 
RNPP3390 
RNPP3400 
RNPP3410 
RNPP3420 
RNPP.3430 
RNPP3440 
RNPP3450 
RNPP3460 
RNPP3470 
RNPP3480 
RNPP3490 
RNPP3500 
RNPP35 10 
RNPP3520 
RNPP3530 
RNPP3540 
RNPP3550 
RNPP3560 
RNPP3570 
RNPP3580 
RNPP3590 
RNPP3600 
RNPP361C 
KNPP3620 
RNPP3630 
RNPP3640 
RNPP3650 
KNPP3660 
RNPP367C 
RNPP3680 
RNPP3690 
RNPP3700 
RNPP3710 
RNPP3720 
RNPP373C 
RNPP3740 
RNPP3750 
RNPP3760 
KNPP3770 
RNPP378C 
RNPP3790 


59500000 

59600000 

59700000 

59800000 

59900000 

60000000 

60100000 

60200000 

60300000 

60400000 

60500000 

60600000 

60700000 

60800000 

60900000 

61000000 

61100000 

61200000 

61300000 

61400000 

61500000 

61600000 

61700000 

61800000 

61900000 

62000000 

62100000 

62200000 

62300000 

62400000 

62500000 

62600000 - 

62700000 

62800000 

62900000 

63000000 

63100000 

63200000 

63300000 

63400000 

63500000 

63600000 

63700000 

63800000 

63900000 

64000000 

64100000 

64200000 

64300000 

64400000 

64500000 

64600000 

64700000 

64800000 

64900000 

65000000 

65100000 

65200000 

65300000 

65400000 

65500000 

65600000 

65700000 

65800000 

65900000 

60 OOOOOO 

66100000 

66200000 

66300000 

66400000 

66500000 

66600000 

66700000 

66800000 
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call ftCAUHS (<:Ut SPECTKAl 1 iNhUKUSt JKLCl 
JrttC = JKLC«-1 

LOOP 1J 1.M1EGKATE ANU INTEKPULATb PHASE DATA 

Uu IbO j-ltNPUiN 
iw = -1 

USc SPECTKUM DATA TU CONSTRUCT INIEGRATIUN 
(OR InTERPULAT ICN) NODE POINTS 
14U k=i,mikacks 


140 


00 

KKl = SPECTKAU, 
CUNT InUE 


K) 


14S 


INTERPOLATE PITR INTP EOUALLY SPACED POINTS OVER THE 
PHASE UlSTKIOUTIUN 

CALL CSlUNl Uo.MTRACnS t 1 i Sit iNTP ,CP t T , XlN Tt Y1 NT , I W . MR , I.cKK ) 

avekaoe interpolated values 

iOMlNT = 0.0 

DO 143 I=lilNTP 

SUNT NT = SUNINT * YlNTllJ 

Continue • ' ’ 

PHASE! JJ = SUrtlNT / FLOAT! InTP) 


160 CONTINUE 

MR 1 T c INIcCRATED values TO KANOCM ACCESS 
CALL mRITHS (.lOiPHASEd I .NPClNtMREC) 

■ MREC = MRECd 


hKITE INIEOkATED BLADE LOADING HARMONIC AND 

inteurated Phase spectrum to disc for later use 
BY I HE plotting PROGRAM SPLPLT 

IF !NR .CM. II MRITE !4I ARE AD, MPOIN t OE LTF . LOt PKCNTGR t RS t t HRUS T 
MKITE (4i IPRlSSUR! 11 .PHASE! 1 1 ,1 = 1,NP01N) 

140 CONTINUE 


^00 


SET Track NUMBER 
J ■= ITRACK 

IF (NTEGRAT .NE. 01 J=1 


(MITH AND MITHOUT INTEGRATION) 


nRlTE SIEADY LOADING AND HEADING INFORMATION 
MRITE (O.EOlO) LO 


RNPP3B00 
RNPP3B10 
RNPP3820 
RNFP3630 
RNPP3840 
RNPP3850 
RNPP3860 
KNPP3870 
RNPP3880 
RNPP3840 
RNPP3900 
RNPP3920 
RNPP3940 
RNPP3960 
RNPP39E0 
RNPP400C 
RNPP402d 
RNPP4040 
RNPP4060 
RNPP4080 
RNPP4100 
RNPP4120 
RNPP4130 
RNPP4140 
RNPP4150 
RNPP4160 
RNPP4170 
RNPP418C 
RNPP4190 
RNPP4200 
RNPP42 10 
RNPP4220 
RNPP4230 
RNPP424C 
RNPP4250 
RNPP4260 
RNPP427C 
RNPP4280 
RNPP4290 
RNPP4300 
RNPP4310 
RNPP4320 
RNPP4330 
RNPP4340 
RNPP4350 
KNPP4360 


2010 FORMAT ( IHi , // , 35X , *LOA 0 1 NG HARrtCNlC COEFFICIENTS AND PHASE ANGLESRNPP43 70 


♦♦,// .20X. »THE STcADY LOADING IS = *,F12.5,* PSL*,//) 

. MRITE !6.20lU) 

2020 FORMAT I / , iOX , ♦H aRMUN 1 C NUMBER*, 7X , *PRE SSORE *, 15X ,* ALPHA* , 1 7X, 
♦*PHaS£*,//J 

set random access record location and S12E COUNTERS 
depending UN MHETFEK INTEGRATICN IS PERFORMED 
IF (NTEGRAT .NE. J) GU To 250 
IREC = NRCSUM 
JREC = IREC+NREAD 

GU TO i.70 ' ■ 

250 IREC = NRVSUM 

JREC = IKEC*NRlAD 
.NPUIN = 250 
NMORDS = 250 
MMURDS = MPOIN 


COMPUTE BLADE LOADING hARMUNLCS 

INITIAL! 2E DATA POINT COUNTER, BLH COUNTER, AND TEST 
PARAMETER 


2 70 


11 = 0 
I = 0 
NPP = 0 
IITEST = 


RNPP4380 

RNPP4390 

RNPP440D 

KNPP4405 

RNPP4410 

RNPP4420 

RNPP4430 

RNPP4440 

RNPP4450 

RNPP4460 

RNPP4470 

RNPP4480 

RNPP4490 

RNPP4500 

RNPP4510 

RNPP4520 

RNPP4530 

RNPP4540 

RNPP4550 

RNPP4560 

RNPP4570 

RNPP4580 

RNPP4590 

RNPP4600 

RNPP461C 

RNPP4620 

RNPP4630 


66900000 

67000000 

6710000U 

67200000 

67300000 

67400000 

67500000 

67o00000 

67700000 

67800000 

67900000 

68000000 

68100000 

68200000 

68300000 

68400000 

68500000 

63600000 

6B700000 

68BOOOOO 

68900000 

69000000 

69100000 

69200000 

69300000 

69400000 

69500000 

69600000 

69700000 

69800000 

69900000 

70000000 

70100000 

70200000 

70300000 

70400000 

70500000 

70600000 

70700000 

70800000 

70900000 

71000000 

71100000 

71200000 

71300000 

71400000 

71500000 

71600000 

71700000 

71800000 

71900000 

72000000 

72100000 

72200000 

72300000 

72400000 

72500000 

72600000 

72700000 

72800000 

72900000 

73000000 

73100000 

73200000 

73300000 

73400000 

73500000 

73600000 

73700000 

73800000 

73900000 

74000000 

74100000 

74200000 


95 


nnnon r> r 'orooo no n n ri r> n n r> t~> n n non n nn non 


appendix g 


c 

C LlJOP f-JR THE NUMdEK OF RANUCM ACCEbS KEALiS.... 

UO <»00 NK=1,NR£AU 

SET RECjRU sue FCR LAST READ (HUH AND HLTHUUT 
INTEGRATION 

IF (nr -tu. NRcALi) NPOIN=MPOIN 
IF (NR .Eg. NREAUJ NWOROS-RmOROS 

READ Pressure data friim ranocm access 

CALL REAUNS (20 . SPEC TRA ( 1 , 1 I t NHOROS , IREC ) 

IREC = IREOl 

USING THE UESIREO TRACK, OETERMINE PRESSURES 
00 290 NP=l,NPOIN 
PR£SSUK(NP) = SPdCTRA(NP,Ji 
290 continue 

SET FIRST PRESSURE TO STEAUV LOADING 
IF (MR .Eg. U PRESSURin = ABStLOl 

READ PHASE DATA FROM RANOOH ACCESS 
CALL REAOMS ( 20 • SPEC TRA 1 1 , 1 ) , NmOKOS, JRECI 
JREC = JREC*1 

USING THE UESIREO TRACK UETERNiNE PHASES 
00 310 NP=l,NPOIN 
PHASEINPI = SPECTRAINP, J) 

310 CONTINUE 

SET FIRST PHASE TC ZERO 
IF (NR .EQ. II PHASEdJ^O.O 


NP = 0 


TEST TO OETERMINE IF NEW R.A. KECORU IS NEEUEO 
320 IF KNPFII .GT. NPUINI GC TO 400 

TEST TO OETERMINE IF NEW FREOUENCV IS NEEUEO 
IF (NP .£0. 0 .ANO. IITEST .EO. NR) GO TO 330 
I = I + l 

COMPUTE MULTPLE OF BLAUE PASSAGE FREQUENCY 
FREQ = ( 1-1)*F 

TEST TO DETERMINE IF NEW R.A. KECORU IS NEEUEO 
330 IF ((NPH) .LE. NPOIN) GC TO 350 

SET NEW R.A. RcCUKO test PARAMETER 
IITEST = NR*1 
GO TO 400 

INCREMENT COUNTERS 
350, NP = NP+1 
11 = 11+1 

TEST FOR COMPLETION OF BLH COMPUTATIONS 
IF (1 .GT. NN .UR. II .GT. NSPCT I GO TO 410 

select oat a at a MULTIPE of elaoe passage frequency 

IF IT Is NOT THE SAME AS THE 6AN0-WI0TH OF FOURIER 
TRANSFURN ANALYSIS (BLH CCEFF ICIENTS I 
OIFF = FREg - (II-1J*DELTF 
ADIFF = ABSIUIFF ) 

IF (AOIFF .GT. 0ELTF2) GO TO 330 

NPP = NPP+1 

REPRtSS(NPP) = PRESSUKINP) 

IF (NR .EQ. 1 .ANU. NPP .EQ. II REPRESS ( 1)-=LU 
REPHAsE(NPP) = PHASt(NPJ/RACIAN 
ALPHA(NPP) = ABS ( REPRE SS ( NPP )/ LOI 

LASPNT = NPP 
GU TO 32u 

400 continue 

GO TU 410 


TEsT Fur optional BLH COEFFICIENT ANO PHASE 


RNPP4640 
RNPP4650 
RNPP46E0 
RNPP4670 
RNPP4680 
RNPP4690 
RNPP4700 
RNPP4710 
RNPP4720 
RNPP4730 
RNPP4740 
RNPP4750 
RNPP4760 
RNPP47T0 
RNPP4780 
RNPP4790 
RNPP4800 
RNPP4610 
RNPP4820 
RNPP4830 
RNPP4840 
RNPP4850 
RNPP4860 
RNPP48 70 
RNPP4880 
RNPP4S90 
RNPP4900 
RNPP4910 
RNPP4920 
RNPP4930 
RNPP4940 
RNPP4950 
KNPP4960 
RNPP4970 
RNPP4980 
RNPP4990 
RNPP5010 
RNPP5000 
RNPP5020 
RNPP5030 
RNPP5040 
RNPP5050 
RNPP5060 
RNPP507C 
RNPP5080 
RNPP5090 
RNPP5100 
RNPP5110 
RNPP5120 
RNPP5130 
RNPP5140 
RNPP5150 
RNPP51G0 
RNPP5170 
RNPP5180 
RNPP5190 
RNPP5200 
RNPP5210 
RNPP5220 
KNPP5230 
RNPP5240 
RNPP5250 
RNPP5260 
RNPP5270 
RNPP5260 
RNPP5290 
RNPP53C0 
RNPP5310 
RNPP5320 
RNPP5330 
RNPP5340 
RNPP5350 
RNPP5360 
RNPP5370 


74300000 

74400000 

74500000 

74600000 

74700000 

74800000 

74900000 

75000000 

75100000 

75Z00000 

75300000 

75400000 

75500000 

75600000 

75700000 

75800000 

75900000 

7GOOOOOO 

76100000 

76200000 

76300000 

76400000 

76500000 

76600000 

76700000 

76800000 

76900000 

77000000 

77100000 

77200000 

77300000 

77400000 

77500000 

77600000 

77700000 

7780007)0 

77900000 

78000000 

78100000 

78200000 

78300000 

78400000 

78500000 

78600000 

78700000 

78800000 

78900000 

79000000 

79100000 

79200000 

79300000 

79400000 

795Q0Q0Q 

79600000 

79700000 

79800000 

79900000 

80000000 

80100000 

80200000 

80300000 

80400000 

80500000 

80600000 

8O7OCOO0 

80800000 

80900000 

81000000 

81100000 

81200000 

81300000 

61400000 

81500000 

81600000 
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C , ANGLE INf'UT 

<t0<! MiUTE (6,2070) 

2070 FOKNAT UHI,//,>5X,*L0AJING riAKMUNlt COEFflGlENIS AND PHASE 
^*,/,24X,*lC0MPUl£0 USING IHE INLINE FUNCI4UN BLH(Y) = C/ Y . . 
mKITE (6,2020) 

■JU A,Ud n=l,Nc)LHPl 
FM = FLOAT(M) 

KEPKESS(N) = BLri(FM) 

RcPHASEIN) = 0.0 
ALPHA(M) =,REPKESS(H) 

40S CONI INUE 

LASPNf = NBLHPT 
C 

C mRIIE BLAOE loading hARMCNiC CUEFF 1 o IE NTS 

WRITE (6,2060) ( 1,REPRESS (1 ), ALPHA! 1 ) .REPHASEI 1 ), (=1 ,LASPNT 

2060 format ( (2a, IO',J(10X,F12.S) ) 


WRITE SPL mLAOINGS 
420 WRITE (o,20a0) 06SELV, 06SA2 1 

20i0 format (lHl,//,40X,*Trit SCUNO PRESSURE LEVELS AT VARIOUS MB 
iS*,///2SX,»QdSERVEK ELEVAIICN ANGLE = * ,F6.3 , 15X , *QdSERV ER 
2 angle = *,F6. j, // ,24X, *Md*, 14X, *SPL*, 18X,*L IMII*,/) 


Compute sound pressure levels 


INITIALISE »OASPL» PARAMETER 

overall = 0.0 


LOUP FOR THE NUMBER (.F HARMONICS. 

00 560 M=1,MAXHAR 


compute mb numbers 

MB = M*NB 

AMBN(M) = FLOATIMB) 

SELECT OESlKEo ARGUMENT ANU ORDER OF BESSEL 
FUNCI ION 
ARu = M*S . 

ASRFOK=ARG*100. 

CALL bSSLS ( AKG, bJ, ASKFUR) 


LoMPUTE SPL USING WRIGHT S(;MMATI.ON 
(RtAL ANU IMAGINARY PARTS ARE ADDED SEPERATELY 
ANO MAGMIUUE yields SPL) 


LMIT = 10. ♦ 1.25*ARG 
ALIMIT(M) = FLOAT(LMIT) 


TEKMl = CEXP (-ti*KEPHASE(Mb»l) ) 
FlRST=.5*ALPHA(MB»l)*KT*dJ( 1 ) *MB * TERMl* (-E 1 ) 
FIRoTl=REAL(FIRST) 

FIRST2=AIMAo(FIRST) 

THETA = UBSA2i 

TERMO = CEXP (El ♦ ( MB*ThETA-REPHASE( U i i 
2ER0=.5*ALPHA( D^IRT-KOT^BJINBfUVMB^TERMOWI-EIWWIMBpI )) 
2ER0I=REAL (ZERO) 

ZERU2=AIMAG( ZERO) 

TOTaLI = 0. 

T0TAL2=0. 

00 500 0=1, LMIT 


OTHETA 
ROOMB 
MBdJ = 
Elol = 
M801 = 


= 0*IH£TA 
= R0*0/Mb 
Mo»dJ (OHl ) 
-EI**(OPl ) 
MBhOp 1 


IERM2 = CEXP (-E1 • ( OT HET A-REPHASE ( MBOU 1 » 

SECOND = .5*ALPHA(MB01) * ( rT*K JCMB ) ♦MBBJP TERM2*£ 1 01 


RNPP5380 
RNPP5390 
ANGLESRNPP54C0 
X)*,//)RNPP5410 
RNPP5420 
RNPP5430 
RNPP5440 
RNPP5450 
RNPP5460 
RNPP5470 
RNPP5480 
RNPP54S0 
RNPP5500 
RNPP5510 
, INCOF)RNPP5520 
RNPP5530 
RNPP5540 
RNPP5550 
RNPP5560 
RNPP5570 
NUMBERRNPP55B0 
AZ1MUTHRNPP55S0 
KNPP56C0 
RNPP5610 

RNPP5620 

RNPP5630 

RNPP5640 

RNPP5650 

RNPP5660 

RNPP5670 

RNPP5680 

RNPP56S0 

RNPP57C0 

KNPP5710 

RNPP5720 

RNPP5730 

RNPP5740 

RNPP5750 

RNPP5760 

RNPP5770 

RNPP5780 

RNPP5790 

RNPP58C0 

RNPP5810 

RNPP5820 

RNPP5830 

RNPP5840 

RNPP5850 

RNPP5860 

RNPP5870 

RNPP5860 

RNPP5B90 

RNPP5VC0 

RNPP5910 

RNPP5920 

RNPP5930 

KNPP5940 

RNPP5950 

RNPP5960 

RNPP5970 

RNPP5980 

RNPP5990 

RNPP6000 

RNPP601X) 

RNPP6020 

RNPP6030 

RNPP6040 

RNPP6050 

RNPP6060 

RNPP6070 

RNPP6080 

RNPP6090 

RNPP6100 

RNPP6110 


81 700000 
81800000 
81900000 
82000000 
82100000 
82200000 
82300000 
82400000 
82500000 
82600000 
82700000 
82800000 
82900000 
83000000 
83100000 
83200000 
83300000 
83400000 
83500000 
63600000 
83700000 
83800000 
83900000 
84000000 
84100000 
84200000 
84300000 
84400000 
84500000 
84600000 
84700000 
84800000 
84900000 
85000000 
85100000 
85200000 
85300000 
85400000 
85500000 
85600000 
85700000 
85600000 
85900000 
86000000 
66100000 
86200000 
B6300000 
86400000 
86500000 
86600000 
86700000 
86800000 
86900000 
87000000 
87100000 
B7200000 
87300000 
87400000 
87500000 
B7600000 
87700000 
87800000 
87900000 
88000000 
88100000 
B8200000 
88300000 
88400000 
88500000 
88600000 
88700000 
88800000 
88900000 
89000000 


coon onr. oocoo no 
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iECOl-REALtSECUiMU) 

SECU2-A1MAG1 SECUNUi 

STEP = 0 

IF (G .GE. MtJl STbP=2 
iUB=lABS(W-Md|i-l 

TERrti = ccXP (£1 ♦ lOTHETA ♦ REPHASE I SU8 >»( SIEP- 1. )) J 

THIRD = .5*ALPHAtSUb) ♦ I K I-KGQM8) ♦MBB J*IERH3*EI Ql 

THiKUl=REAL(THlRO) 

rHlR02-AlHAGITHUDJ 

IOTALl=TOTALl»S£CaibTHIROl 

TOTAL2=TOTAL2*S£CO2+THIR02 

500 CONTINUE 

NSPLPT = M 

TOTAL REAL AND IMAGINARY PARTS 
T0TALR=T0T AL l*ZtRQl*FIRSH 
r0TALI=T0TAL2+Z£R02*FIRST2 

TAKE MAGNITUDE 

total = SORT ( (TOTALR*TOTALRi*(TaTAL I«TOTALli) 

TOTAL = T0TAL/SQRT2 

APPLY APPROPRIATE CHORD 0 1 STR IBUT<i ON FUNCTION TO SPL 


520 IF (TOTAL .NE. 0.0) GO TO 550 
SPLIM) = 0.0 

GO TO 590 

COMPOTE SOUND PRESSURE LEVELS 
550 SPLIM) - 20.«ALOG10 (ABS(TCTAL)/POJ 
TOTAL OASPL PARAMETER 
'■ OVERALL = overall ♦ TOTAL*TQTAL 

580 CONTINUE 


RNPP6120 
RNPP6I 30 
RNPP61A0 
RNPP6I50 
RNPP6I60 
RNPP6I70 
RNPP6180 
RNPP6190 
RNPP6200 
RNPP62 10 
RNPP6220 
RNPP6230 
RNPP6240 
RNPP6250 
RNPP6260 
RNPP6270 
RNPP62BX) 
RNPP629C 
RNPP630fi 
RNPP63L0 
RNPP6320 
RNPP6330 
RNPP63A0 
RNPP6350 
RNPP63A0 
RNPP6370 
RNPP6380 
RNPP6390 


IF 

(ICHORO .EU. 

0) 

60 TO 

520 

RNPP6400 

IF 

(ICHURD .Eiii. 

1) 

TOTAL 


TOTAL*(lHQROUMI 

RNPP6410 

IF 

(ICHORO .EU. 

2) 

TOTAL 

= 

T0TAL*CHORO2IMI 

RNPP6420 

IF 

(ICHORO .Eg. 

i) 

TOTAL 


T0TAL*CH0R03(NI 

RNPP6430 

IF 

(ICHORO .EU. 

4) 

TOTAL 

-= 

T0TAL«CHCR04<M4 

RNPP6440 


WRITE SOUND PRESSURE LEVELS 

590 WRITE (6(2040) ( AMBN ( I ) . SPL ( I ) t AL LMI T ( I ) tl =1 tNSPLPT) 

2040 FORMAT ( 1 9X i FO. 1 , lOX ,F 1 0 . 3 . lOX, F 12 . 1 ) 

TAKE Root mean scuare 
RMS = sort (OVERALL) 

EVALUATE OASPL 
0ASPL=20.*AL0G10(RMS/P0) 

WRITE OASPL 
WRITE (6,2050) JASPL 

2050 FORMAT ( // ,20X ,*OASPL = ♦,F6.1,* 08*) 

TRACK = FLOATdfRACK) 

WRITE SOUND PRESSURE LEVEL PLOTTING PARAMETERS 

TO DISC FUR LATER USE BY THE PLOTTING PROGRAM SPLPLT 
WRITE (4) NB (F ( RSfOASPL ( thrust, 0BSELV,08SAZI,TRACK,PRCNTGR( I CHORD 
WRITE (4) MAXhAK,(SPL(M) (P==1,MAXHAR) 


777 CONTINUE 


return to determine if another case is to be RUN 


GO TO 10 

99V CONTINUE 
STOP 
END 


RNPP6450 

RNPP6460 

RNPP647D 

RNPP6480 

RNPP6490 

RNPP6500 

RNPP6510 

RNPP6520 

RNPP6530 

RNPP6540 

RNPP6550 

RNPP6560 

RNPP6570 

RNPP6560 

RNPP6590 

RNPP6600 

RNPP6610 

RNPP6620 

RNPP6630 

RNPP6640 

RNPP6650 

RNPP6660 

RNPP667C 

RNPP6680 

RNPP6690 

RNPP6700 

RNPP6710 

RNPP6720 

RNPP6730 

RNPP6740 

RNFP6750 

RNPP674C 

RNPP6770 

.RNPP6780 

RNPP6790 

RNPP6800 

RNPP6810 

RNPP6820 

RNPP6830 

RNPP6840 

RNPP6850 


89100000 
89200000 
89300000 
89400000 
89500000 
89600000 
89700000 
89800000 
89900()00 
90000000 
90100000 
90200000 
90300000 
90400000 
90500000 
90600000 
90700000 
90800000 
90900000 
91000000 
91100000 
91200000 
91300000 
91400000 
9150000U 
91600000 
91700000 
91800000 
91900000 
92000000 
92100000 
92200000 
92300000 
92400000 
92500000 
92600000 
92 700000 
92800000 
92900000 
93000000 
93100000 
93200000 
93300000 
93400000 
93500000 
93600000 
93700000 
93800000 
93900000 
94000000 
94100000 
94200000 
94300000 
94400000 
94500000 
94600000 
94700000 
94800000 
94900000 
95000000 
95100000 
95200000 
95300000 
95400000 
95500000 
95600000 
95700000 
95800000 
95900000 
96000000 
96100000 
96200000 
96300000 
96400000 


98 
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c 

t 

c 

c 

c 

c 

c 

t 

c 

t 

c 

c 

c 

c 

c 

L 

L 

c 

c 

c 

c 

c 

c 

c 



SUbRUUTlNE CSl JiNUhNPTSf NiNCVSfHHAXthtX.y.r.F, IWtMK, lERRi 

CSIUOOlO 

96500000 


OlHENSlUN EIMMAX.NCVSI 

CS1U0020 

96600000 


OlMEMSlOiN WKll) 

CS1U0030 

96700000 


U1MEN5 lUN X(N) . YtMNPTS.NCVSJ .TIMI 

CSl U0090 

96800000 


JX=|<*|'JCVS 

CSIU0050 

96900000 


IEKK=J. 

CSIU0060 

97000000 


IEXP=0 

CSIU0070 

97100000 


IT=0 

CSIU0080 

97200000 


iS=0 

CS1U0090 

97300000 


IP=0 

CSlUOlOO 

97900000 


10=0 

CSlUOllO 

97500000 


1M=1 

CSIU0120 

97600000 


1N=1 

CS1U0130 

97700000 



CSIU0190 

97800000 


dK( 1. TCJ Ni h 

CSIU0150 

97900000 



CS1U0160 

98000000 


WX(N+1 TO JKfN) IQLY 

CSIU0170 

98100000 



CS1U0180 

98200000 


WK(JK+N*1 lu JK+XNJ ICC 

CS1U0190 

98300000 



CS IU0200 

98900000 


WKUK*2Nn rO JX*3M Ih^ 

CSIU0210 

98500000 



CS1U0220 

98600000 


»tK(JK»iN«'l TO JX«-4NI ICSd 

CSIU0230 

98700000 



CS1U029C 

98800000 


TO J^»5NI 100 

CSIU0250 

98900000 



CS1U0260 

99000000 


wKlJK*5N«-i TO <dJK + 5M I Si 

CS1U0270 

99100000 



CS1U0280 

99200000 


»<MijK+5N+l TO 3JK + 5M IS3 

CS1U0290 

99300000 


XK(30X.4'5N4'1 to 3JK«-6N) IkM 

CSIU0300 

99900000 



CSIU0310 

99500000 


dK(3dX*6N*l To 3JX4-7NJ IGG 

CSIU0320 

99600000 



CS1U0330 

99700000 


i«K(3dK+/N*l TO JJK + oNl ISV 

CSIU03A0 

99800000 



CSIU0350 

99900000 


OIMEMSIOn hK 

CSIU0360 

100000000 



CS1U03 7.0 

100100000 


IOLYsN+1 

CS100380 

100200000 


ICCijKT-NH 

CSIU0390 

100300000 


lH2=JK«-i*N*l 

CSIU0900 

100900000 


loSU*JK*3*N«-l 

CSIU0910 

100500000 


loO= JX*4*N*-l 

CS1U0920 

100600000 


1 S2=JK*5*N+1 

CSlU093fi 

100700000 


IS3=2*Jn«-5*N*1 

CSlUOAAO 

100800000 


iWW='3»JK«-5*N+l 

CS1U0A50 

100900000 


lG(i=3*JR*-6*N+l 

CS IU0A60 

101000000 


I SV=j*JK*7*N*l 

CSIU0970 

101100000 


IFUd-I-lll 13,2,15 

CS1U0980 

101200000 


z 

II 

CSIU0990 

101300000 



CSIU0500 

101900000 


15 IIYOEPENOENT VAKlAdLE ARRAY INCREASING 

CS1U0510 

101500000 



CSIU0520 

101600000 


00 Ily 1=1, N1 

CSIU0530 

101700000 


MK( U = X( 1>U-X( 1 t 

CSIU05A0 

101800000 


IFlWKll)) 119, UY, 118 

CSIU0550 

101900000 

uv 

MRirU6,122l 1,X( 1), XI 14^11 

CSIU0560 

102000000 

IZl 

FORMAT ( IHOuAfaHlilNOEPENOEM VAR1A6LE ARRAY NOT INCREASING IN 

CSIUN1CSIU0570 

102100000 

1 

L AT POSITION 19 ,2X2HX= 2F 10.9/J 

CS1U0580 

102200000 


I£RR=1 

CSIU0590 

1C2300000 


return 

C SI 00600 

102900000 

ild 

CUNT INUE 

CSIU0610 

102500000 


Im=1 

CS1U0620 

102600000 


00 101 L=1,NCVS 

CS1U0630 

102700000 

3 

00 51 1=1, N1 

CSIU0690 

102800000 


Il=lFl 

CSIU0650 

102900000 


lMi=l-l 

CSIU0660 

103000000 


WMIULY+1PJ = (Y1I 1,U-Y( I,U J/RK< 11 

CS 1006 70 

103100000 


IP=IP*1 

CS 100680 

103200000 


dK( 1CC4IM1 t = HiU 1 ) 

CS1U0690 

103300000 

51 

CONT InUE 

CS1U0700 

103900000 


00 65 1=2, N1 

CSIU0710 

103500000 


lMi=l-l 

CSIU0720 

103600000 


NK(1H24’IMU = (WR1 lHU4,yK(ll)*2. 

CSIU0730 

103700000 


MK110S04’lMlt = (MR(10 EY41M-RK1I0 LV4^ IM- 1 ) J.*6 

CS1U0790 

103800000 


99 
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IM=IM+1 


CSIU0750 

103900000 

65 

CONTINUE 


CS1U0760 

104000000 

IZi 

CONT INUE 


CSIU0770 

104100000 


MK(1H2)=1. 


CSIU0780 

104200000 


6KilOSU-lJ=l. 


CSIU0790 

104300000 


WKUCCi»0. 


CSIU0800 

104400000 


MK(N1)=0. 


CS1U0810 

104500000 


MK(10S0)=0. 


CS1U0820 

104600000 


WKtI00-l)=0. 


CS1U0830 

104700000 

zii 

CONTINUE 


CS1U0840 

104800000 




CS1U0850 

104900000 

THIS ROUTINE SOLVES THE TRIUIAGJNAL (EXCEPT TMO ELEMENTS) 

HATR (X 

CS1U0860 

105000000 




CSIU08T0 

105100000 


IIP=ISV-1 


CSIU0880 

105200000 


HK(Ih>0=mK(IH2) 


CSIU0890 

105300000 


UK(1SV)=MIU ICO/MKI IH2i 


CSIU0900 

105400000 


■ K.(IGG)-UKiIUSQ)/MK( (HH) 


CSIU0910 

105500000 


UO 100 K=2>N 


CS1U0920 

105600000 


KM2=K-2 


CS1U0930 

105700000 


KMl = K-1 


CSIU0940 

105800000 


MKI I WN4KH1 I^MKI IH24KM1)-UKIKM1) 6UK( 1SV«’XM21 


CS1U09SO 

105900000 


IF (K.EO.N) GO TO 5 


CS1U0960 

106000000 

4 

MK(ISV4-KN1)=«K( 1CC*KH1)/UK(IHM4KM1) 


CS1U0910 

106100000 

5 

MKI1GG4KN1 l-IMKI IDSU4KM1 )-UK(KNl )*UK(I6G4ILM2n /UKI IHW4-KH1 ) 

CSIU0960 

106200000 

100 

CONTINUE 


CSIU0990 

106300000 


MK(1S2-1)=MK(1SV-1) 


CSIUIOOO 

106400000 


1BM=IS2-1 


CSIUIOIX) 

106500000 


00 200 K=ltNl 


CS1U1020 

106600000 


I8C»IdM-K 


CS1U1030 

106700000 


KK= N-K 


CSIUIOA^ 

106800000 


KKM1=KK-1 


CSIU1050 

106900000 


HKI 1BC)-UK 1 1GG4-KKMD-HK I lSV«KKNli«WK I IBC41 J 


CS1U1060 

107000000 

200 

CONTINUE 


CSIU1070 

107100000 




CSIUIOBO 

107200000 




csiuioao 

107300000 


00 66 I=°ltN 


csiuiido 

107400000 


IMl-1-1 


CSlUlllO 

107500000 


MK(1S2410)=WK.( I004IM1) 


CSIU1120 

107600000 


lO^lOFl 


CSIU1130 

107700000 

66 

CONT INUE 


CSIU1140 

107800000 


WK(N1)-Uk( 1H2-2) 


CSIU1150 

107900000 

14 

00 53 l^ltNl 


CS1U1160 

108000000 


I1=»I + 1 


CSIU1170 

108100000 


MKI IS3>1S1=(MK.( lS2«^(N)-riK( 1S2«1N-1))/HK(() 


csiuiiao 

10820000CT 


1S=IS«^1 


CSIU1190 

108300000 


IN=1N>1 


CSIU12QO 

108400000 

5J 

CONT INUE 


CS1U1210 

108500000 


IN»1M>2 


CS1U1220 

108600000 


IP=IP*1 


CS1U1230 

108700000 


IN=lN4l 


CS1U1240 

108800000 


1S-(S»1 


CSIU1250 

108900000 

101 

CONTINUE 


CSIU1260 

109000000 

IS 

CONTINUE 

' J ' 1 . 

CSIU1270 

109100000 


IFllM .EQ.O) IM^l 


CS1U1280 

109200000 

104’ 

J=0 


CS1U1290 

109300000 

105 

J=J+1 


CSIU1300 

109400000 

16 

I = IN 


CSIU1310 

109500000 

54 

IF(TIJ)-Xll)) 58tll7,55 


CS1U1320 

109600000 

117 

1=1 


CS1U1330 

109700000 


1M=1 


CSIU1340 

109800000 


GO TO 17 


CSIU1350 

109900000 

55 

IF(TIJ)-XIN)) l62f5V,158 


CSIU136.0 

110000000 

162 

IFIT(J)-Xll)) 160,217,57 


CS1U1370 

110100000 

160 

1 = 1-1 


CS1U1380 

110200000 


GO TO 162 


CS1U1390 

110300000 

56 

lFlT(Ji-X< li ) 60,217,57 


CSIU1400 

110400000 

57 

1 = 1*1 

‘ 

CSIU1410 

110500000 


GO to 56 


CSIU1420 

110600000 

58 

CONTINUE 


CS1U1430 

110700000 




CS1U1440 

110800000 


EXTRAPOLATE LUi^ER ENO 


CSIU1450 

110900000 




CS1U1460 

111000000 


1 = 1 


CSIU1470 

111100000 


o 

II 

M 


CSIU1480 

111200000 


100 


ooonnnoorinoor'oo 
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TSAV=TlJi 
IIJ> = XCU 
1EXP=1 
GO. TO 17 
C 

C EXTRAPOLATE UPPER ENU 

C 

I5d 1=IR=N 
1 = 1-1 
TSAV=TIJI 
TU)=X(Ni 
lEXPiE 
GO TO 17 

59 I=N 

60 continue 
1 = 1-1 

ii7 lw=i ■ ■ 

17 CONTINUE 
1H1=I-1 
ITU=lULy*IMl 
ITE=ISZ+IM1 
1T3=IS3+IM1 
DO 110 X=1 ,NCVS 
HT1=1 I JJ-XU ) 

1I=I*1 

HT2=T( Jl-Xl 1 1 1 

PRQU=HT1 * HT2 

UER2 = MK( lT2i *^MT1*RK(1 Ti I 

DELiOS=tWKl I l21*hKl I T2+ H ♦UER2I /u. 

FI J.Ki = Y1 1 ,K)«’HTl«hiM ITUl fPRU 0*0EL5QS 
IFIIEXP-IJ lOUu. lOoi , 100^ 

1001 CONTINUE 

OERl =0M I TOJ«-{HTltHT2»*OELSGS*PROO*«IKIl T3)/6. 

FI J,M=F( J,M*ITSAV-Xl 1 1 1 ♦OERl 
GO TO 1000 

1002 CONTINUE 

OERl =«MlTJJMHU*HT2»*OELSUS*PRCO*MKUI3l/6. 

FIJ.K(=FIJ,K»*I rSAV-XINlMOERl 
1000 CONTINUE 
lT3=iri*-N 
lT2=ir2FN 
iru=iroFN 
110 Continue 

IFliEXP ,N£. 01 TlJl^rSAV 
1EXP=0 

1FIJ.LT.HIG0 TO 105 

RETURN 

ENU 

SUaKUUTlNb SPL5IMNPI5,N,NCV5.X,Y,xl,KJ,PRUXlN, IM, MX, I ERR) 
01MEN5I0N PROXININCVS) 

DIMENSION AIN) lYlMNPTS.NCVS) 

DIHENSIUN HRill 
1EHR=0 
JR=N*NCVS 
JX2=JK*2 


11=0 

1P=0 

IU=0 

1M=1 



WKIl TO NT 

ri 


WMN+1 TO 

JK^-N) 

lOLY 

WXI JK*N+1 

TO JR*2N) 

ICC 

rtXI JK<-2N*-1 

TO JR3JN) 

IF.2 

WIUJK*3N4-1 

TO JR+4N1 

losg 

NKlJK«’4N«'l 

TO JX+5NI 

ICU 

MXI JK»5N«^1 

Tu 2JK+5N) 

IS2 


CS1U1A90 
CSIU150O 
CSIU1510 
CSIU1520 
CSIU1530 
CSIU1540 
CSIU1550 
CS1U1560 
CS1U1570 
CS1U1580 
CSIU1590 
CS1U1600 
CS1U1610 
CSIU1620 
CS1U1630 
CS1U1640 
CSI.U1650 
CS1U1660 
CSIU1670 
CS 1U1680 
CSIU1690 
CSIU1700 
CSIUITIO 
CS1U1720 
CSIU1730 
CS1U1740 
CS1U1750 
CSIU1760 
CSIU1770 
CSIU178C 
CSIU1790 
CS1U1800 
CSIU1810 
CSIU1820 
CSIUIB30 
CSIU1840 
CS1U1850 
CS IU1860 
CSIU1870 
CS1U1880 
CS1U1890 
CSIU1900 
CSIU1910 
CS1U1920 
CSIU1930 
CSIU1940 
CS1U1950 
CSIU1960 
SPLSOOlO 
SPLS0020 
SPLS0030 
SPLS0040 
SPLS0050 
SPLS0060 
SPLS0070 
SPLS0080 
SPLS0090 
SPLSOlOO 
SPLSOllO 
SPLS0120 
SPLS0130 
SPLS0140 
SPLS015D 
SPLS0160 
SPLS0170 
SPLSOiao 
SPLS0190 
SPLS0200 
SPLS0210 
SPLS0220 
SPLS0230 
SPLS0240 
SPLS0250 
SPLS0260 


111300000 
111400000 
1 11500000 
111600000 
111700000 
111800000 
111900000 
112000000 
112100000 
112200000 
112300000 
112400000 
112500000 
112600000 
112700000 
1 12800000 
1 12900000 
1 13000000 
1 13100000 
113200000 
113300000 
1 13400000 
113500000 
1 13600000 
113700000 
1 13800000 
1 13900000 
1 14000000 
1 14100000 
1 14200000 
114300000 
1 14400000 
1 14500000 
1 14600000 
1 14700000 
1 14800000 
114900000 
115000000 
U5100C00 
115200000 
115300000 
115400000 
115500000 
115600000 
115700000 
1 1580J0O0 
1 15900000 
116000000 
1 16100000 
116200000 
1 16300000 
116400000 
1 16500000 
1 16600000 
116700000 
1 16800000 
116900000 
117000000 
117100000 
117200000 
117300000 
117400000 
117500000 
117600000 
117700000 
117800000 
117900000 
118000000 
118100000 
118200000 
118300000 
118400000 
118500000 
118600000 
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■ TO IMW 

TO IGG 

MKl^JK + 7N>i TO ^'JK^SNt ISV 

OlNbNSiON MK(2 JiC4-8N) 

10LT=N«-1 
ICC=JK4-N+l 
1H2=JK*2*N*1 
IOSQ-JK*3*N+i 
100= JK*4*N>1 
IS2= JK+5*N*1 
IWW=JK2+5*N<-1 
1GG=JK2»6*N>1 
iSV=JR.2 + 7*N*l 
IFUM-(-U) I5t2fl5 
^ Nl=N-i 

00 118 l=liNl 
WK(I) = X(Uli-Xl li 
IFIMM 1) 1119. 11>4. 118 
119 URITE(6.122) l.X( I) .XU+1) 

122 FORMAT llH0bX62HlN0EP£N0ENT VARIABLE 
IT POSITION I4.2X2HX=2F10.4) 

1ERR=1 

RETURN 

118 CONTINUE 
1U=1 

00 101 L=1 iNCVS 
3 00 SI 1=1. N1 
Il=i«’l 
IN1=1-1 

MK(10LV4’IPl = (Y(ll.Li~V( l.Lii/HKIl) 


SPLS0270 

II8700000 

SPLS0280 

118800000 

SPLS0290 

118900000 

SPLS0300 

119000000 

SPLS0310 

119100000 

SPLS0320 

119200000 

SPLS0330 

119300000 

SPLSd34X) 

119400000 

SPLS0350 

119500000 

SPLS0360 

119600000 

SPLS0370 

119700000 

SPLS0380 

119800000 

SPLS0390 

119900000 

SPLS0400 

120000000 

SPLSO4L0 

120100000 

SPLS0420 

120200000 

SPLS0430 

120300000 

SPLS044d 

120400000 

SPLS0450 

120500000 

SPLS0460 

120600000 

SPLS047C 

120700000 

SPLS048X) 

120800000 

SPLS049XI 

120900000 

NOT INCREASING IN SPLS ASPLS0500 

121000000 

SPLSbSlO 

121100000 

SPLS0520 

121200000 

SPLS0530 

121300000 

SPLS0540 

121400000 

SPLS0550 

121500000 

SPLS0560 

121600000 

SPLS0570 

121700000 

SPLS05&0 

121800000 

SPLS05SO 

121900000 

SPLS0600 

122000000 


IP=IP*1 

WK(ICC«IM1)=WK(I) 

SI CONTINUE 

00 6S 1=2. N1 
IMl»l-l 

MKUH2«’1M11 = (WK( IM1)«’WKU))*2. 

MKU0S04’IM1J = (mK 110 LY*1N1-MK(10 LYi’lH-liJ.Ab 
IN=IM*1 
bS CONTINUE 

222 CONTINUE 
WKiIH21=l. 

WMIOSw-li = l. 

MK1ICC1=0. 

MX(N11=0. 

WK(I0S01=0. 

WX(IOO-11=0. 

223 CONTINUE 

THIS ROUTINE SOLVES THE TRIOIAGGNAL lEXCEPT TMO ELEMENTS) MATRIX 
IIP=ISV-1 

MKI I WN)=WKI1H/!) 

MK(ISV) = .1K( iCC)/nKlIH2) 

NK(IGG)=MKiIOSU) /MKI IMR) 

NM1=N-1 
00 100 K=2.N 
KM2=K-2 
KMl = K-1 

WMlMR + KMl) = MKnH24^KMl)-hKiXMl)ARK( 1SV*KM2) 

IF IX.EO.N) GO TO S: 

4 WKI I SVtKMl l = NK( ICC«^KMU/RM IMU«^KR1) 

3 WK(IGG«^KM1 J=(nKI 10 SW«-XM 1 1 -MK I KMl JbRKI ICG«’XM2 1 1 /MKI I MM4^KM1 1 

100 continue • 

RK1I32-1J = HK(1SV-1) : 

IBR=IS2-1 . • 

00 200 K=1 ,N1 
I8C=I8R-K 
KK= N-K 
KKM1=KK-1 

RK1I8C) = mK( 1GG*KKN1)-RK( 1 SVtKKMI )«RK ( IBC*! 1 


SPLS06L0 

SPLS0620 

SPLS0610 

SPLS0640 

SPLSObSO 

SPLS0660 

SPLS0670 

SPLS0680 

SPLS0690 

SPLSOTOO 

SPLS07U0 

SPLS0720 

SPLS0730 

SPLS0740 

SPLS07S0 

SPLS0760 

SPLS0770 

SPLS078O 

SPLS0790 

SPLS0800 

SPLS0810 

SPLS0820 

SPLS0830 

SPLS084C 

SPLS08SO 

SPLS0860 

SPLS08T0 

SPLS0880 

SPLS0890 

SPLS0900 

SPLS0910 

SPLS0920 

SPLS0930 

SPLS094O 

SPLS09S0 

SPLS0960 

SPLS0970 

SPLS0980 

SPLS0990 

SPLSIOOO 


122100000 
12220Q0Q0 
122300000 
122400000 
122S60000 
122600000 
122 700000 
122800000 
122900000 
123000000 
123100000 
123200000 
123300000 
123400000 
123SOOOOO 
123600000 
123700000 
123B0OOOO 
123900000 
124000000 
124100000 
124200000 
124300000 
124400000 
124S00000 
124600000 
124700000 
124800000 
124900000 
12S000000 
12S100000 
12S200000 
12S300000 
125400000 
12SS00000 
125600000 
123700000 
125800000 
125900000 
126000000 
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ioa CONTINUE 

c 

c 

00 66 t^l.N 

NKUS2«^10)=MKi 
10=10*1 
66 continue 

rtKlNl )=WM 1H2-2J 
1M=1M*2 
1P=IP*1 
10 I CONTINUE 
IS CONTINUE 
iI2=lS2 
KJM=KJ-1 

■'DU 120 K=l.NLWS 
.';'PR0XTN(X.) = 0-.. ■ ' 

UO 62 l.= K.l <KJM 

11=I*1 

I22=112*l-l 

PKUX IN ( KI = PRUXlN(K I*. S« mK (I 1*1 Yi l,K)*y I 11, K) )-MK( 3 
1* (MX (1 22 i*MK( 122*1)1/24. 

62 CONTINUE 

112=1S2*(N*K) 

120 CONTINUE 
return 
END 

SUUROUTInE BSSLS IXiF.N) 

C THIS SUBROUTINE WAb ORIGINALLY THE SYSTEM SUBROUTINE BSSLS/TAS 

C a/26/66 but has since been MOCIEIEO TO ALLOW BESSEL FUNCTIONS OF 
C OROER GREATER THAN JO TO BE CCRPUTEU. 

DIMENSION F( 1) 

C0MMON/F1X/nPR,NP,NPP 
UO 1 l=l,100o 
F(1)=J. 

1 CONTINUE 
NP = N*2B 
NPR =1.S*X*2B 
ifinp.lt. NPRJNP=NPR 
IFIX.EU.0.0) GO TO 1<) 

F(NP»= 0.0 
F(NP-l)=.lE-99 
NPR=NP - 2 
NPP=NP - 1 
00 11 1=1, NPK 
NP = NPP - I 
AN = NP 

11 FINP) = 2.U*XN/X*F(NP*1)-F1NP*2) 

XN = FI 1 J 
00 7 1 = J,NPP,2 
7 XN = 2.0 *F( D+XN 
XN = l./XN 
00 B 1 = l.NPP 
F( 1 J=XN*F1 1 J 
a CONTINUE 
RETURN 

19 FU)= i.UOO 

00 1631 1 = 2,nP 

1B31 FID = 0.0000 
RETURN 

ENO ■ ■ 

PROGRAM SPLPlT I 1NPUT=201 ,UU TPUT=201 , TAPE5=1 NPUT , T AP£6=0UTPUT , 
*TAPE4=1001) 


SPLSIOIO 
SPLS1020 
SPLS1030 
SPLS1040 
SPLS1050 
SPLS1060 
SPLS1070 
SPLS1080 
SPLS1090 
SPLSllOO 
SPLSlllC 
SPLS1120 
SPLS1130 
SPLS1140 
SPLS1150 
SPLS1160 
SPLS1170 
SPLSllBD 
SPLS1190 
SPLS1200 
SPLS1210 
SPLS122C 
SPLS1230 
S PL S 1240 
SPLS1250 
SPLS1260 
SPLS1270 
BSSLOOlO 
B SSL 00 20 
BSSL0030 
BSSL0040 
BSSLOOSO 
BSSL0060 
BSSLOOSO 
BSSL0090 
assLOloo 
BSSLOllO 
BSSL0120 
BSSL0130 
BSSL0140 
8SSL0150 
BSSL0160 
BSSL0170 
essLOieo 

BSSL0190 

BSSL0200 

BSSL0210 

BSSL0220 

BSSL0230 

6SSL0240 

8SSL0250 

BSSL0260 

BSSL0270 

BSSLO2B0 

BSSL0290 

BSSL0310 

8SSL0320 

8SSL0330 

BSSL0340 

BSSL0360 

8SSL0370 

SPLPOOlO 

SPLP0020 


«««*«**• »*«*1»«*«**A>6*6«**«66*««***«»«**««*6 SPLP0030 


c* 

c* 

c* 

c» 

C* 

C* 

C* 

C* 

C* 

C* 


PURPOSE 

TO PLOT (CALCCMP) THE SOUND PRESSURE LEVEL ISPL) 

DATA GENERATED BY PROGRAM KNPPE4. ONE PLOT OF 
SPL .VS. FrEwUENCY I,S PRODUCED FOR EACH SET OF SPL 
data generated by program RNPPE4. IN ADDITION IF 
integration of the steady LOADING DISTRIBUTION ALONG 
ANY length of IHE CHORD MAS PERFORMED, A PLOT OF 

THE Integrated blade loading coefficients iano an 

OPTIONAL PLOT CF THE INTEGRATED. PHASE SPECTRUM) MILL 
BE PRODUCED. 


6SPLP0040 
♦SPLP0050 
♦SPLP0060 
♦SPIP0070 
♦SPLP0080 
♦SPLP0090 
♦SPLPOIQO 
*SPLP01 10 
♦SPLP0120 
•SPLP0130 


126100000 

126200000 

126300000 

126400000 

126500000 

12o600000 

126700000 

126800000 

126900000 

127000000 

127100000 

127200000 

127300000 

127400000 

127500000 

127600000 

127700000 

127300000 

127900000 

12B000000 

12BIOOOOO 

128200000 

12B300000 

128400000 

128500000 

128600000 

12B700000 

128800000 

128900000 

129000000 

129100000 

129200000 

129300000 

129400000 

129500000 

129600000 

129700000 

129800000 

129900000 

130000000 

130100000 

130200000 

130300000 

130400000 

130500000 

130600000 

130700000 

130800000 

130900000 

131000000 

13U000U0 

131200000 

131300000 

131400000 

131500000 

131600000 

131700000 

131800000 

131900000 

132000000 

132100000 

132200000 

132300000 

132400000 

132500000 

132600000 

132700000 

132800000 

132900000 

133000000 

133100000 

133200000 

133300000 

133400000 
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c* 




♦SPLP0140 

133500000 

c* 

NAMELIST INPUT PARAMETERS 

♦SPLP0150 

133600000 

L* 



NAMEL 1ST FIXED 

♦SPLP0160 

133700000 

C* 

NSPL 

- 

NUMBER CF SPL PLOTS TO BE PRUOUCEO FOR 

♦SPLP0170 

133800000 

t* 



GIVEN DATA 

•SPLP0180 

133900000 

C* 



(NSPL=6 IS DEFAULT VALUE) 

*SPLP01<J0 

134000000 

L* 

XMIn 

- 

FREOUENCY RANGE OF AVAILABLE FLIGHT POINT 

♦SPLP0200 

134100000 

C* 



(XM1N=0.U IS DEFAULT VALUE) 

*SPLP0210 

134200000 

c* 

XMAa 


LOADING DATA (H2.) IS GIVEN BY XMAX-XMIN 

♦SPLP0220 

134300000 

c* 



(XMAX=1000.C IS DEFAULT VALUE) 

♦SPLP0230 

134400000 

t* 

VMIn 

- 

MINUPUM SOUND PRESSURE LEVEL (DB) 

*SPLP0240 

134500000 

c* 



(YMIN=1U.0 IS DEFAULT VALUE) 

♦SPLP0250 

134600000 

c* 

VSCAlc 

- 

SPL AXIS (Y-AXIS) SCALE FACTOR 

♦SPLP0260 

1 34700000 

L* 



(YSCALE=lO.0 IS DEFAULT VALUE) 

♦SPLP0270 

134800000 

C* 

RUN 

- 

RUN NUMBER 

*SPLP02fi0 

134900000 

C* 




♦SPLP0290 

1350000^00 

C* 



NAMELIST VARIABLE 

♦SPLP0300 

135100000 

C* 

NNPLUT 

- 

0 NO INTEGRATED BLADE LOADING COEFFICIENT 0R*SPLP0310 

135200000 

C* 



INTEGRATED PHASE PLOTS V.1LL BE GENERATED 

*SPLP0320 

135300000 

c* 



FOR THIS SET CF SPL VALUES. 

♦SPLP0330 

135400000 

c* 



1 AN INTEGRATED BLADE LOADING COEFFICIENT 

♦SPLP0340 

135500000 

c* 



PLOT IS GENERATED FOR THIS SET SPL VALUES 

•SPLP0350 

135600000 

L* 



2 BOTH AN INTEGRATED bLH COEFFICIENT AND 

♦SPLP0360 

135700000 

L* 



phase plot IS GENERATED FOR THIS SET 

♦SPLP037D 

135800000 

C* 



OF SPL VALUES. 

♦SPLP0380 

135900000 

C* 



-1 INTEGRATED BLH COEFFICIENT AND PHASE PLOT 

*SPLP0390 

136000000 

C* , , 



IS NUT DESIRED. ALTHOUGH BLADE LOADING 

♦SPLP04CO 

136100000 

C* 



DATA MAS COMPUTED THROUGH INTEGRATION 

♦SPLP041C 

136200000 

C* 



(REMARK: SINCE PLOITl.NG POINTS (BLH. PHASE. 

•SPLP0420 

136300000 

c* 



AND SPL) ARE INPUT SEQUENTIALLY AS 

♦SPLP0430 

136400000 

c* 



THEY MERE GENERATED BY PROGRAM 

♦SPLP0440 

136500000 

c* 



RNPPE4, KNPLOT MUST BE 0 IF CORRES- 

-*SPLP0450 

136600000 

c* 



PONDING NTEGRAT WAS 0 IN RNPPE4) 

*SPLP0460 

136700000 

c* 




♦SPLP0470 

136B00000 

c* 

OiSC INPUT 

PARAMETERS 

•SPLP0480 

136900000 

c* 



BLH PLOT 

♦SPLP0490 

137000000 

c* 

NREAU 

- 

NUMBER CF BLOCKS (OF SUE 250 OR LESS) OF 

♦SPLP0500 

137100000 

c* 



BLADE loading HARMONICS 

♦SPLP0510 

137200000 

c* 

MPOIN 

- 

SUE OF THE LAST BLH DATA BLOCK 

♦SPLP0520 

137300000 

c* 

DtLTP 

- 

BLADE LOADING FREQUENCY (HZ.) 

♦SPLP0530 

137400000 

c* 

LO 

- 

STEADY loading COEFFICIENT 

♦SPLP054D 

137500000 

c* 

PRCNTOR 

- 

PER CENTAGE OF CHORD INTEGRATED 

♦SPLP0550 

137600000 

c* 

RS 

- 

ROTOR ROTATIONAL SPEED TRPH) 

•SPLP05G0 

137700000 

c* 

THRUST 

- 

TOTAL LIFT (MEIGHT OF HELICOPTER) (LBS.) 

♦SPLP0570 

137800000 

c* 

PRESSUR 

- 

AN ARRAY DIMENSIONED 250 CONTAINING THE 

♦SPLP0580 

137900000 

c* 



blade LOADING HARMONICS 

*SPLP05*0 

138000000 

c* 

PHASE 


AN ARRAY DIMENSIONED 2S0 CONTAINING THE 

*SPLP060D 

138100000 

c* 



INTEGRATED PHASE DATA 

*SPLP0610 

138200000 

c* 



SPL PLOT 

*SPLP062D 

13B300000 

C4 

NB 

- 

NUMBER OF BLADES 

♦SPLP063D 

138400000 

c* 

F 

- 

BLADE PASSAGE FREQUENCY (HZ.) 

♦SPLP0640 

138500000 

c* 

OASPL 

- 

OVERALL SOUND PRESSURE LEVELS (OB) 

♦SPLP0650 

138600000 

c* 

THRUST 

- 

TOTAL LIFT (HEIGHT OF HELICOPTER) (LBS.) 

*SPLP066D 

138700000 

c* 

■ RS 

- 

ROTOR ROTATIONAL SPEED IRPM) 

♦SPLP0670 

138800000 

L* 

U8SELV 

- 

OBSERVER ELEVATION ANGLE (RADIANS) 

•SPLP0680 

138900000 

c* 

UbSAXI 

- 

OBSERVER AZIMUTH ANGLE (RADIANS) 

♦SPLP0690 

139000000 

c* 

TRACK 

- 

(F NO INTEGKATICN OF STEADY LOADING DIST. 

♦SPLP0700 

139100000 

c* 



MAS PERFORMED. TRACK IS THE SPECTRUM DATA 

♦SPLP0710 

139200000 

c* 



PUSIIION 

♦SPLP0720 

139300000 

c* 

1 CHORD 

- 

DETERMINES WHICH CHORD DISTRIBUTION FUNCT ION* SPLP073B 

139400000 

c* 



IS USED TO CORRECT SPL VALUES 

*SPLP074C 

139500000 

c* 

HAXHAR 

- 

MAXIMUN NUMBER OF HARMONICS 05MAXHARK50D 

♦SPLP0750 

139600000 

c* 

SPL 

- 

AN ARRAY DIMENSIONED 500 CONTAINING THE 

♦SPLP076D 

139700000 

c* 



SOUND PRESSURE LEVEL VALUES. (OB) 

♦ SPLP077.0 

139800000 

c* 




*SPLP07£0 

139900000 

c* 

Subroutines used 

♦SPLP0740 

140000000 

c* 

NONE 



♦SPLP080D 

140100000 

Q* 




*SPLP081C 

140200000 



140300000 


COMMQN (>HESSURI2i>0) .PHASE 4 250 J,S PL (300) .ACUUST (500),X( 500) 
REAL LU 


SPLP0830 140400000 
SPLP084C 140500000 
SPLP0850 140600000 
SPLP0860 140700000 
SPLP0870 140800000 


104 



APPENDIX G 




DATA KAOIAN / 57 . 2957 7913/ 

SPLP0880 



NAMELIST /FIXEU/ NSPL , XM 1 N ,*MAX , VMI N.TSC ALEt RU N /INPUT/ NNPLOT 

SPLP0890 

c 



SPLP090B 

c 



SPLP0910 

c 


MAKE IMTAL CALL TO CALCCMP PROCEUSQK 

5PLP0920 



CALL PSEUD0(6LSPLULHi 

SPLP0930 



CALL LERUY 

SPLP0935 

c 



SPLP0940 

c 


FIXED NAMELIST DEFAULT PARAMETER VALUES 

SPLP0950 



NSPL =6 

SPLP0960 



XMIN = 0.0 

SPLP097C 



XMAX = 1.0E03 

SPLP098O 



YMIN = l.OEOl 

SPLP0990 



YSCALE = l.OEOl 

SPLPlOdo 

c 



SPLPIOIO 

c 


REAOi CHECK FOR END OF FILE. AMO MRITE FIXED 

SPLP1020 

c 


INPUT DATA 

SPLP1030 


10 

READ 15.FIXEDI, , ' 

SPLP1040 



IF lEOF.S) 999,20 

SPLP1050 


20 

WRITE l6,FlXEul 

SPLP1060 

c 



SPLP1070 




SPLP1080 

c 


COMPUTE SCALE FACTORS AND X AND V-AXIS LENGTHS 

SPLP1090 

c 


SCALE FACIORS ARE DETERMINED FOR PLOTTING 

SPLPllOO 



FRANGE=XMAX-XMIn 

SPLPlllO 



IPOwIO^AeOGIOI FKANGE) 

SPLP1120 



POWlO = 10.**1PJ«10 

SPLP1130 



IF IPJWIO .GE. FKANGEJ PURlO = PCWlO/10. 

SPLP1140 



IFIFRANGE/PUWlU-10. i dO,5£,5C 

SPLP1150 


50 

XSCALE=POwlO 

SPLP1160 



GO TO 110 

SPLP1170 


60 

1F(FKANG£/PUW10-5. t UO,7C,7C 

SPLP1180 


70 

XSCAL£=POW10/2. 

SPLP1190 



GO TO 110 

SPLP1200 


80 

IFIFRANGe/P0w10-2. I 100,9Ci90 

SPLP1210 


90 

XSCAL£=P0W10/5. 

SPLP1220 



GO TO 110 

SPLP1230 


100 

XSCALE=P0W10/10. 

SPLP1240 


110 

imin=xmin/xscale 

SPLP1250 



IFUMINWXSCALE.GT.XMIN) lPlN-lMlN-1 

SPLP1260 



XM1N-1H1N*XSCALE 

SPLP1270 



1MAX=XMAx/XSCALE 

SPLP1280 



IF1IMAX3XSCALE.LT.XMAXI IMAX=IMAXf1 

SP1P1290 



XLENGTH=IMAX-1MIN 

SPLP1300 



YMAX=10. *¥SCAL£<-VMIN 

SPLP1310 

(; 



SPLP1320 

c 



SPLP1330 

c ■ 



.•.SPLP13^0 



SOUND PKESSOkE level PLOTS 

SPLP1350 

c 



SPLP1360 



DO 300 NP=1,NSPL 

SPLP1370 




SPLP1380 

c 


READ. CHECK FOR END OF FILE, AND tiRlTE VARIABLE 

SPLP1390 

c 


INPUT DATA 

SPLP1400 



READ 15, INPUT! 

SPLP1410 



IF (EOF, 51 999,130 

SPLP1420 


130 

WRITE (Oi INPUT! 

SPLP1430 

c 



SPLP1440 

c 


TEST TO determine IF 6LA0E LOADING HARMONICS 

SPLP1450 

c 


PLOT IS DESIREU (8LH! 

SPLP1460 



IF (NNPLUT .EU. 0! GO TO 190 

SPLP147C 

c 



SPLP1480 

c 



SPLP1490 

c 



SPLP1500 

c 


SECTION TO PLOT BLAUE LOADING HARMONICS 

SPLP1510 

c 


COEFFICIENTS AND INTEGRATED PHASE SPECTRA 

SPLP1520 

c 



SPLP1530 

c 


SET ALLOWABLE RANGE (MINIMUM AND MAXIMUM! FOR THE 

SPLP1540 

c 


8LH COEFFICIENIS AND INTEGRATED PHASE SPECTRA 

SPLP1550 



Y8MIN = -100.0 

SPLP1560 



YBMAX = 0.0 

SPLP1570 



YPMIN = -180.0 

SPLP1580 



YPMAX = 180.0 

SPLP1590 

c 


SET Y-AXIS SCALE FACTOR FOR BLH AND PHASE PLOTS 

SPLP1600 


140900000 

141000000 

141100000 

141200000 

141300000 

141400000 

141500000 

141600000 

141700000 

141.800000 

141900000 

142000000 

142100000 

142200000 

142300000 

142400000 

142500000 

142600000 

142700000 

142800000 

142900000 

143000000 

143100000 

143200000 

143300000 

143400000 

143500000 

143600000 

143700000 

143800000 

143900000 

144000000 

144100000 

144200000 

14‘t300000 

144400000 

144500000 

144600000 

144700000 

144800000 

144900000 

145000000 

145100000 

145200000 

145300000 

145400000 

145500000 

145600000 

145700000 

145800000 

145900000 

146000000 

146100000 

146200000 

146300000 

146400000 

146500000 

146600000 

146700000 

146800000 

146900000 

147000000 

147100000 

147200000 

147300000 

147400000 

147500000 

147600000 

147700000 

147800000 

147900000 

148000000 

148100000 

148200000 
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SPLP16U) 

SPLP1620 

SPLP163C 

SPLP1640 

SPLP1650 

SPLP1660 

SPLP167C 

SPLP16B0 

SPLP1690 

SPLP1700 

SPLP1710 

SPLP1720 

SPLP1730 

SPLP1740 

SPLP1750 

SPLP1760 

SPLP1770 

SPLP178C 


If (NNPLOT -tU. NAP=2 ' SPI.P1790 

SPLP1800 

.....LOUP FU» BLH ♦ INTtuRAIfcU PHASE PLOTS SPLPlfllO 

00 185 IAP=1.NAP SPLP1820 

SPLP1830 

. 1N1T1AL12E BLH AND PHASE POINT CUONTER SPLP1840 

Nil = 0 SPLP1850 

SPLP1860 

SET. STANOAKO RECQRO SI2E SPLP187C 

NPOIN = 250 SPLP1880 

SPLP1890 

• DRAW AND LABEL INTEGRATED BLH AND PHASE PLOT AXIS SPLP1900 

IF (lAP .Eu. I) CALL AXES ( 0. < 0. .90. , 10. tVBHIN . YBSC AL .-I. . 1 0. . 52HI SPLP 1910 
«-NTEGRATEO BLADE LOADING CCEFFICIENTS (20LUGI LS/LO) ) . . 15. 52 I SPLP1920 

If ( lAP .£0. 2) CALL AXES (0 . .0 . . 90. , 10. .-200. . YPSCAL . 1. , 10. , 35H INSPLP1930 
>TEGRATE0 PHASE SPECTRUM ( DEGREES ) .0. 2 . 351 SPLPL940 

CALL AXESI0..U..0..XLENGTF.XMIN.XSCALE.-I..I0..14HFRE0UENCY, HZ.. SPLP1950 
10.I5.-l4i SPLP1960 

SPLP1970 

' LOOP FUR THE NUMBER OF BLH RECORDS... SPLPI9B0 

DO 180 NR*l.NK£AC SPLP1990 

SPLP2000 

TEST FUR LAST INTEGRATED BLH OR PHASE BLOCK SPLP2010 

IF (NR. EG. NREAO) NPOIN^MPOIN SPLP2020 

READ INTEGRATED BLH COEFFICIENT MtO PHASE RECORD SPLP2030 

READ (4i (PRESSURdi.PHASEdl.l^I.NPCIN) SPLP2040 

SPLP’2050 

LOOP TO CREATE AND SCALE... SPLP20A0 

FREGUENCY AND BLH P01NT6 SPLP207O 

DO 160 1=1. NPOIN SPLP2080 

Nil = NII»1 SPLP2090 

Xdl = (NII-lJ*0£LTF SPLP2100 

Xd) = (Xdi-XMINI / XSCALE SPLP2110 

IF (lAP .EU. 21 GO TO 150 SPLP2120 

SUM = SUN + PRESSURdioPRESSURdi SPLP2130 

PRESSURdl - 20. * ALOGIO ( ABSIPRESSURd 1/LOi I SPLP2140 

IF (PRESSURdl .LT. YBMINl PRESSURdl = VBNIN SPLP21S0 

IF (PRESSURdl .GT. YBMAXl PRESSURdl = YBMAX SPLP2160 

PRESSURdl = (PRESSURdl-YBMINI / VBSCAL SPLP2170 

GU TO 160 SPLP2180 

150 IF (PHASEdl .LT. YPMINl PHASEdl = VPNIN SPLP2190 

IF (PHASEdl .GT. YPMAXl PHASEdl = VPMAX SPLP22CiO 

PHASEdl = (PHAS£dl+200.01 / YPSCAL SPLP2210 

160 CONTINUE SPLP2220 

SPLP2230 

SPLP2240 

LOUP TO PLOT BLADE LOADING SPLP2250 

COEFFICIENTS (OR PHASESl .VS. FREUUENCY SPLP2260 

IF (NR.EU.I .ANU. lAP.EU.il CALL CALPL T ( XI II , PRESSUK ( 1 1 . 11 SPLP227/0 

IF (NRlEQ.I .and. 1AP.EQ.21 CALL CALFLT (Xdl .PHAS El 1 1 . 1 1 SPLP2280 

11=1 SPLP2290 

IF (NR .£0. II 11=2 SPLP2300 

DO 170 I=II.NPUIN SPLP2310 

IF (Xdl .GT. XcENGTH .UR. Xdl .LT. 0.01 GO TO 170 SPLP2320 

IF llAP .EQ. II CALL CALPLT 1 XII 1 . PRESSUR.I.1 1 ,2 1 SPLP2330 

IF (lAP .Eu. 21 CALL CALPLT ( Xd 1 , PHASE d 1 ,2 1 SPLP2340 

»'■ 


YPSCAL = 40.0 

C INITIALIZE OABLH PARAMETER 

SUM = 0.0 
C 

C READ NECESSARY BLH PLOTTING PARAMETERS 

READ l4l NREAO, MPOIN, OELTF ,LO,PRCNTGfi,RS, THRUST 
C 

C OETERMINE ip integrated BLH AND PHASE PLOTS 

C EXIST. Anl are NUT uESlRED 

IF (NNPLOT .NE. -II GO TO 145 
DO 140 NR=I,NREAO 
REA0I4I 
140 CONTINUE 
GO TU 190 
C 

C SET LOOP INDEX DEPENDING ON DESIRE' OF PHASE PLOT 

145 NAP = I . 


148300000 

148400000 

148500000 

148600000 

148700000 

148800000 

148900000 

149000000 

149100000 

149200000 

149300000 

149400000 

149500000 

149600000 

149700000 

149800000 

149900000 

150000000 

150100000 

150200000 

150300000 

150400000 

150500000 

150600000 

150700000 

150800000 

150900000 

151000000 

151100000 

151200000 

151300000 

151400000 

151500000 

151600000 

151700000 

151800000 

151900000 

152000000 

152100000 

152200000 

152300000 

152400PP_0 

15250000.6 

1526o6o66 

152T00000 

152800000 

152900000 

1.53000000 

153100000 

153200000 

153300000 

153400000 

153500000 

153600000 

153700000 

153B00000 

153900000 

154000000 

154100000 

154200000 

154300000 

154400000 

154500000 

154600000 

154700000 

154800000 

154900000 

155000000 

155100000 

155200000 

155300000 

155400000 

155500000 

155600000 
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170 COWliNUE 


lUO CONTINUE 

COMPUTE OVERALL RMS 
RHS = SORT (SUMPOELTFt 
OAOLH = ^0. ♦ ALOGICIRMS/LQI 

OKAm BLH plot luEMlEICAriON PARAMETERS 
RPH = RS 

CALL NUTATE ( I. • V. A , . 13 f ^hRPH =t0.t3) 

CALL NUMBER ( 1 . 7 . 9. A , . 1 3 t RPM f 0. t C t 
CALL NUTATE 1 1 . . 9 . 7 • . 13 , 3HRUN , 0. > 3) 

CALL NUMBER ( 1 . / .9.7 i . 1 3 tKUN f 0. <0) 

If (lAP .EU. IJ CALL NOTATE(3.0.9.7,.15,15HOABLH = 06 

IF (lAP .EU. II CALL NUMBER ( 3 .9 . 9. 7 , . 13 ,UABLH> Oi , 1 1 
CALL NUTATE i 3 . i 9 . A t . 13 i I AHTHRUST= LB.0..1A) 

CALL NUMBER (3. 9 .9 . A , . 1 3 . THKL S I t C. t~ 1 1 
CALL NOTATE ( 5 . 3 ,9 . A , . 1 5 , AhLC =.0..A) 

CALL NUMBER (6 . i . 9.A . . 1 3 t LU . 0 . . 3 1 

CALL NUTATE 1 1 . . 9 . 1 , . 13 . 32HPERCE NT AGE OF CHURO INTEGRATED 
CALL NUMBER (3 >9 . 1 1 . 1 3 , PRCNTGR tO. t 1 1 

IF INTEGRATED PHASE SPECTRA PLOT 1.S REQUESTED, 
REPOSITION Disc TO kEAU INTEGRATEU PHASE SPECTRA 
AND POSITION NEW PHASE PLUT ORIGIN. 

IF (NAP.Eu.l .OK. 1AP.EQ.2) GO TC 1B3 
UO 1B2 NR=1,NREA0 
backspace a 
162 continue 

MOVE PLOT-PEN TO ORIGIN CF NEXT PLOT I 
183 CALL NFKAME 

183 CONTINUE 


READ aRRAV of SOUND PRESSURE LEVELS 
READ NECESSARY SPL PLOTTING PARAMETERS 
190 READ (Ai NB,F,KStUASPL, THRLST,UBSELV,OBSACI, TRACK, PRCNTGR, 
HEAD (A) MAXHAR, (SPL (Mi ,M=1,MAXHAR) 


.LOUP TO CREATE AND SCALE SPL. 
AND FREQUENCY ARRAYS 


DO 200 M=1,MAXHAR 
MB ° M*NB 

THE SOUND PRESSURE LEVELS ARE SCALED 
IF (SPUMl .GT. YMAXI SPL(M)-YMAX 
IF (SPLIMi .Lf. YMINI SPL(MI=YMIN 
ACOUST(M) = (SPL(MI-YM1NI / YSCALE 
X(Ml = FL0AT(HB|*F*( l./XSCALEI 

IF (FLUAT(MB)*F .LT. XMIM X(M1 = XMIN* ( 1 . /XSC AL E I 
IF (FLUAT(MB)*F .GT. XMAXI X(M1 = XMAXA 1 1 ./X SC AL E I 
200 CONTINUE 

CONVERT OBSERVER ELEVATION ANO AZIMUTH ANGLES 
OaSELV = OBSELVARAOl AN 
OBSAZl = OBSAlIPRAOI AN 

dram ANU label SPL PLOT AXIS 

CALL AXES( 0. , 0.,90., 10. , YMIN, YSCALE ,-l. ,10. ,13HSPL, DECIBE 
U 

CALL AXES(0. ,0.,0. ,XL ENGTF , XM IN , XSCALE ,-l. ,10. , 19HFREQUENC 
1.13,-14) 

DRAm gPL plot identification PARAMETERS 

KPM = RS 

CALL NOTATE! 1. ,9.4,. 13, 3HRPM =,0.,31 
CALL NUMBER! 1.7, 9. 9,. 13, KPM, Q.,0 1 


SPLP2350 
SPLP2340 
SPLP2370 
SPLP2380 
SPLP2390 
SPLP2400 
SPLP2410 
SPLP2420 
SPLP2430 
SPLP2440 
SPLP2430 
SPLP2460 
SPLP247.0 
SPLP2480 
SPLP2490 
,0.,13l SPLP2300 
SPLP231C 
SPLP2520 
SPLP2330 
SPLP2340 
SPLP2550 
=,0.,32)SPLP2360 
SPLP2570 
SPLP2375 
SPLP2580 
SPLP2590 
SPLP2600 
SPLP2610 
SPLP2620 
SPLP2630 
SPLP2640 
SPLP2630 
SPLP2660 
SPLP2670 
SPLP2680 
SPLP2690 
SPLP2700 
SPLP2710 
... SPLP2720 

SPLP273S 
SPLP2740 
SPLP2750 
ICHDRO SPLP2760 
SPLP2770 
SPLP2760 
SPLP279C 
SPLP2800 
SPLP2810 
SPLP2820 
SPLP2830 
SPLP2840 
SPtP2630 
SPLP286C 
SPLP2870 
SPLP2880 
SPLP2890 
SPLP2900 
SPLP2910 
SPLP2920 
SPLP2930 
SPLP2940 
SPLP2950 
SPLP2960 
SPLP2970 
SPLP2980 
LS,.2,13SPLP2990 
SPLP3000 
Y, HZ., SPLP3010 
SPLP3020 
SPLP3030 
SPLP3040 
SPLP3030 
SPLP3060 
SPLP3070 


133700000 

133800000 

153900000 

136000000 

136100000 

136200000 

156300000 

136400000 

136300000 

136600000 

156700000 

156800000 

156900000 

157000000 

157100000 

157200000 

137300000 

157400000 

137300000 

137600000 

157700000 

137800000 

157900000 

158000000 

138100000 

138200000 

138300000 

138400000 

158300000 

138600000 

158700000 

158800000 

138900000 

159000000 

159100000 

139200000 

159300000 

159400000 

159500000 

139600000 

159700000 

139800000 

159900000 

160000000 

160100000 

160200000 

160300000 

160400000 

160500000 

160600000 

160700000 

160800000 

160900000 

161000000 

161100000 

161200000 

161300000 

161400000 

161300000 

161600000 

161700000 

161800000 

161900000 

162000000 

162100000 

162200000 

162300000 

162400000 

162500000 

162600000 

162700000 

162800000 

162900000 

163000000 
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SPLP3080 
SPLP3090 

US. 0. .151 SPLP3100 

. SPLP31U) 

LSi0..14J SPLP3120 

SPLP3130 
SPLP3190 

0bG.0..14) SPLP3150 

SPLP3160 
SPLP3170 

OEG.O. .141 SPLP3180 

SPLP3190, 
SPLP3200 
SPLP3210 
SPLP3220 
SPLP3230 
SPLP3240 
SPLP3250 

210 CALL NOTAIE 1 1 . . 9. 1 . . 15 . 32HPERCEM AGE UF CHORD INTEGRATED - . 0 . . 32) SPLP3260 
CALL NUM8ER < 5 .2 .9 . 1 . . 15 . PKCN TGR . 0. . 11 SPLP3270 

SPLP3280 

.Eg'. 01 CALL NCTATE ( 1 . . 8.8. ; 15. 23HP01NT LOADING DATA USPLP3290 

SPLP3300 

11 CALL NCTATE (1. . 8.8. . 15.. 26HRECT ANGULAR CHORD FUSPLP3310 

SPLP3320 

21 CALL NCTATE ( 1. . 8 . 8 « . 15 .26HHALF COSINE CHORD FUSPLP3330 

SPLP3340 

IF (ICHOKO .Eu. 31 CALL NCTATE ( 1 . . 8. 8 . . 15 .25H TRl ANGUL AR CHORD FUNSPLP3350 


CALL NOTATE11..9.7.. 15. 31RUN.0..31 
CALL NUMbEKl 1.7.9. 7. . 15 . RON . 0. . - 1 1 
CALL NOTATE(3.0.9.7..15.15huASPL = 

CALL N0M8EK(3.9.9.7. .15.GASPL.0. .11 
CALL NOTATE ( 3. . 9. 4. . 15 . 14HTHKUS T= 
CALL .NUMBER li . 9 .9 .4. . 1 5 . THRUST . 0. .- 1 1 
sigma =■ OBSE'LV 

CALL NUTATE(5.5.9.7..15.14HS1GMA = 

CALL NUMBER (6. 4. 9. 7. . 1 5 . S IGMA . 0. ,-l) 
THETA = UbSAi.1 

CALL NOIATE15.5.9.4..15.14HTHETA = 

CALL NUMBER<6.4.9.4..15.IEETA.0..-11 

IF (NNPLUT .NE. 0) GU TO 210 
CALL NUTATE(1..9.1..15.5HGAGE .0..5) 
CALL NUMBEKI 1.7) 9. 1. .15. track. 0. .-11 
GO TO 220 


220' IF ( ICHURU 
FScD)0.)231 
IF (ICHORD 
»NCTI0N)0..261 
IF 1 ICHORD .Eg. 
FNC ri ON. 0.. 281 


.Eg. 


FCTIUN.0..251 
IF ( ICHURU .Eg. 
«10N.0..2il 


SP.LP3360 

4) CALL NCTATE ( 1. . 8. 8. . 15.23HSAWT0UTH CHORD FUNCT SPLP337.0 

SPLP338A 

SPLP3390 

SPLP3400 

LOOP TC PLOT SOUND SPLP3410 

PRESSURE LEVEL .VS. FREUUENCV SPLP3420 

CALL PNTPLT (X (1 1 . ACOUS T ( 1 1 . 1 1 . 1) ■ SPLP3430 

00 250 M=2.MAXHAR . . SPLP3440 

CALL CALPLT(X(Ml.tAC0UST(Ml)21 SPLP34S0 

CALL PNTPLTIXIMI .ACOUSTlMl.ll.il SPLP3460 

250 CONTINUE SPLP3470 

SPLP3480 

SPLP3490 

MOVE PLOT PEN TO ORIGIN OF NEXT PLOT SPLP3500 

CALL NFRAME SPLP3510 

SPLP3520 

300 CONTINUE SPLP3530 

i...SPLP3540 

SPLP3550 


DETERMINE IF ANOTHER CASE IS TO BE RUN SPLP3560_ 

GO TO 10 SPLP3570 

999 CALL. C'ALPLT (0..0..999) SPLP3580 

C SPLP3590 

STOP SPLP360£ 

END SPLP36lO_ 


163100000 
163200000 
163300000 
163400000 
163500000 
163600000 
163700000 
163800000 
163900000 
164000000 
164100000 
164200000 
164300000 
164400000 
164500000 
164600000 
1.647000A0.' 
164800000 
164900000 
165000000 
165100000 
165200000 
165300000 
165400000 
165500000 
165600000 
165700000 
165800000 
165900000 
166000000 
166100000 
166200000 
166300000 
166400000 
166500000 
166600000 
166700000 
166800000 
166900000 
167000000 
167100000 
167200000. 
167300000 
16'74b6o6o 
167500000. 
167600000 
167700000 
167800000 
167900000 
168000000 
168100000 
168200000 ' 
166 300000 
i684000^00 
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TABLE I.- CHORDWISE DISTRIBUTIONS AND ASSOCIATED x- FUNCTIONS 


DISTRIBUTION 


J 

LI 

1 

1 

1 



POINT LOADING 


I -HIKC/V 



I H I 


_K k_ 

! X- 


TRIANGULAR LOADING 


SAWTOOTH LOADING 


X - FUNCTION 


^mB ” ^ 


JiLX'Vt RECTANGULAR LOADING X, 


T HALF-COSINE LOADING X 


mB 


'mB 


sin 

l 2r 1 

(mBc/2r) 

/mBc\ 

cos 

\ 2r ; 

i-( 

mBc’\ 
Tir / 


/mBc\ 

sin 

V 4r / 


X 


mB 


L(mBc/4r) J 


: mBc\ . mBc 
Ttr 


1/2 (mBc/rr 



110 


TABLE n.- SRENPP PROGRAM INTERRELATION 


-Input transducer spectrun data 


s 

— ^ 

Prngr ATT 


■■ 1.^ Program 

1 

■ 

RAI'IWJI 

Combined Transducer 
Snectriua Data 

SPECPLT 

1 


Combined Transducer 
Spectrum Data 


Combined Spec 
Data Plots 


Program 

TRANS 


Reorganized combined 
Transducer Spectrum 


Program 


SPL and integrated BLH data 


Program 

SPLPLT 


SPL and ELH Plots 





TABLE m.- RNPPE4 FLOW CHART 













TABLE m,- Concluded 









TABLE IV.- SPECTRUM- DATA INPUT PARAMETERS 


Variable name 

Variable description 

ICH 

Spectrum data transducer (or combined position) 
number (1 s ICH < 14) (integer). 

DELTF 

Blade-loading frequency (Hz) (floating point). 

NSPCT 

Number of spectrum points per transducer 
(1 £ NSPCT £ 30,000) (integer). 

^ NREAD 

Nxmiber of spectrum data records per transducer 
(1 < NREAD < 20). (integer). , 

NUAMP 

An array dimensioned 1500 containing the spectrum- 
data amplitudes (floating point). 

NUPHASE 

An array dimensioned 1500 containing the spectrum- 
data phases (degrees) (floating point). 


^ NREAD is not part of the transducer identification record of the pro- 
gram RAMANI input tape. It is part of the identification record of the 
RAMANI output tape used by programs SPECPLT and TRANS. 
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TABLE V.- PROGRAM RAMANI: NAMELIST INPUT 


Variable name 

Variable description 

NTRACKS 

Number of tracks of transducer spectrum data being input (integer) 
(1 < NTRACKS s 24). 

DBREF 

An array dimensioned 24 containing the decibel reference frequency 
constant for each track of spectrum data (floating point) (decibels). 
(DBREF(I) = 0.0 Is default value for 1=1,2,. . ., 24.) 

NPRINT 

Output control parameter specifying the number of combined spec- 
trum data records (Frequency, Amplitude, and Phase) output to 
printer for each combined spectrum position (integer). 

(NPRINT = 50 is default value.) 

NSKIP 

. • , Input control parameter specifying the number of records of trans- 
ducer spectrum data to be skipped at the beginning of input tape. 

(Since data is input in blocks of 1500, NSKIP = ([{N - 1)/150(5+ l} + 1 
is required to skip spectrum data from one transducer containing 
■ N spectrum data points.) (integer) (NSKIP = 0 is default value.) 

MTRACKS 

Number of spectrum data positions after combining (adding or 
scaling) in addition to the number of transducers whose data is to 
be skipped. (Exclude records skipped by NSKIP.) (integer) 

(1 < MTRACKS < 24.) 

BTN.JSTN 

Two arrays dimensioned 24 describing the spectrum-data combining 
sequence, (integers) (0 < 1STN(K),JSTN(K) £ 24 where 
K = 1, 2, . . ., 24.) 

(1) ISTN(K) = JSTN(K), JSTN(K)'# 0 implies that transducer spectrum 
data from transducer ISTN(K) will be weighted by the scaling 
factor WGHT. 

(il) ISTN(K) * JSTN(K), JSTN(K) # 0 implies that transducer spectrum 
data from transducers ISTN(K) and JSTN(K) will be added. 

(iii) ISTN(K) * JSTN(K), JSTN(K) = 0 implies spectrum data from 


transducers ISTN(K) will be skipped. 

Restrictions: The ISTN array must be strictly increasing and 
* ISTNd) § JSTN(J) for I g J. 

(ISTNd)) = JSTN(1) = 0.0 is default for I = 1, . . ., 24.) 

WGHT 

A scaling factor by which the spectrum data amplitudes are to be 
weighted. (If no weighting is desired, use default.) (WGHT = 1.0 
is default value.) (floating point) 

lOPTN 

An output control option (integer) 

= 0 Combined spectrum data will be output to tape only. 

= 1 Combined spectrum data will be output to random access for 
immediate use by programs SPECPLT or TRANS. An output 
tape is also created. 

(lOPTN = 1 is default value.) 

NTAPE 

An input control parameter (integer) 

= 1 Transducer spectrum data will be input from one tape. 

= 2 Transducer spectrum data will be input from two tapes. 
(NTAPE = 1 is default value.) 

LO 

An array dimensioned 24 (and specified REAL) containing the 
steady loading frequency for each transducer (psi). 

(LO(I) = 0.0 is default for I = 1, . . ., 24.) 




TABLE VI.- PROGRAM SPECPLT NAMELIST INPUT 


Variable name 

Variable description 

MTRACKS 

Number of combined spectrum-data positions .. 
(integer) (1 < MTRACKS < 14). 

THRUST 

Total lift of helicopter (lbs) (floating point). 

RPM 

Rotational speed of helicopters (rpm) (floating 
point). 

XMINpJMAX 

(XMAX - XMIN) is the allowable frequency range 
(X-axis) for plotting the combined spectrum 
data (Hz) (floating point). 

(XMIN = 0.0 is default value.) 

(XMAX = iOOO.O is default value.) 

RUN 

Flight run number (floating point). 

YMIN.YMAX 

(YMAX - YMIN) 'is the allowable amplitude range 
(Y-axis) for plotting the combined spectrum data 
(floating point). 

(YMIN = -100.0 is default value.) 

(YMAX = -0.0 is default value.) 

YSCALE 

Combined spectrum-data amplitude (Y-axis) scale 
factor (floating point). 

(YSCALE = 10.0 is default value.) 

NNPLOT 

An array dimensioned 14 containing the plotting 
control for each of the 1=1,. . ., MTRACKS 
combined spectrum-data positions (integer). 

= 0 for some I implies that no combined 

amplitude plot will be generated for the Ith 
position. 

= 1 for some I implies that only a combined 
amplitude plot will be generated for the 
Ith position. 

= 2 for some I implies that both a combined ampli- 
tude and a combined phase plot will be gener- 
ated for the Ith position. 

(NNPLOT(I) = 0 for I = 1, . . 14 is default 

value.) 

DBREF 

An array dimensioned 14 containing the decibel ref- 
erence frequency-'constants for each of the combined 
spectrum data positions (floating point) (decibels). 
(DBREF(I) = 0.0'for I = 1, . . ., 14 is default 
value.) 

lOPTN 

Combined spectrum-data input control parameter. 

■ = 0 The combined spectrum data is to be' input by ‘ 
magnetic tape. (Programs SPECPLT and 
RAMANI .are not job- stepped. ) 

= 1 The combined spectrum data is input by random 
access. (Programs SPECPLT and RAMANI 
are to be job- stepped.) 

(Integer) 

(lOPTN = 1 is default value.) 




TABLE Vn.- PROGRAM TRANS NAMELIST INPUT 


Variable name 

Variable description 

lOPTN 

Input control parameter describing the means of 
combined spectrum-data input (integer). 

= 0 Combined transducer data will be input by mag- 
netic tape. 


= 1 Combined transducer data will be input by ran- 
dom access file. (Programs TRANS and 
RAMANI are job- stepped.) 

= -1 Combined transducer data will be input by data 
card. 

(lOPTN = 0 is default condition.) 

MTRACKS 

Number of positions of combined spectrum data 
(1 < MTRACKS < 14) (integer). 


TABLE Vm.- PROGRAM TRANS OPTIONAL CARD INPUT FORMAT 

For each combined transducer station the optional card input has the 
following format: 


CARD 1 Station Identification Record 

ICH Columns 1-5 (15) 

NSPCT Columns 6-10 (15) 

DELTP Columns 11-30 (G20.10) 

CARD 2 CARD (NSPCT +1) 

NUAMP Columns It 20 (G20.10) 

NUPHASE Columns 21-40 (G20.10) 


The individual parameters are described in table V. 




TABLE EX.- PROGRAM RNPPE4 RANDOM ACCESS INPUT PARAMETERS | 


Variable name 

Variable description 

MTRACKS 

Number of combined spectrum-data positions 
(integer), (1 s MTRACKS ^ 14.) 

NSPCT 

Number of spectrum data points per position 
(integer). (1 < NSPCT £ 30,000.) 

NRCSUM,KREC 

Beginning and ending random access record 
locations for the reorganized combined spectrum 
data (integer). 

MPOIN,MWORDS 

Number of combined spectrum points per record 
in the last random access record for nonintegra- : 
tion and integration (integer). > , . , 

(1 < MPOm £ 250) 

(1 < MWORDS < 250*MTRACKS) 

SPECTRA 

An array dimensioned 250 by 16 containing the 
block of reorganized combined spectrum (ampli- 
tude and phase) data (floating point). 
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TABLE X.- PROGRAM RNPPE4 NAMEUST INPUT 


NAMELIST ROTOR - ROTOR is reinput whenever BLH and SPL data are to be 
computed using a new rotor, or whenever a switch to or from the inline 
' computation of BLH data is made. 


Variable name 

Variable description 

NSPL 

Number of sets of BLH and SPL data to be computed using this . 
helicopter rotor (integer). (NSPL = 6 is default value.) 

EFMACH 

Effective radial Mach number (flowing point). 

OBSELV 

Observer elevation angle (radians) (floating point). 

EFPTCH 

Effective blade pitch (radians) (floating point). 

OBSDIST 

Observer distance from rotor center (feet) (floating point). 

NB 

Number of blades (integer). (NB =4 is default value.) 

THRUST , 

Total lift (weight of the helicopter in pounds) (floating point). 

TORQUE 

Total rotor drag force (lbs) (floating point). 

C 

Speed of sound (feet/second) (floating point). 
(C = 1084.8 is default value.) 

RS 

Rotational speed (rpm) (floating point). 

F'.-,. 

Blade passage frequency (rps) (floating point). 

EFRAD 

Effective blade radius (feet) (floating point). 

EFCORD 

Effective blade chord (feet) (floating point). 

XMAX 

Maximum f^^equency of available flight point loading data (Hz) 
(floating point), (XMAX = 1000.0 is default value.) 

OBSAZI 

Observer azimuth angle (radians) (floating point). 

STDYLO 

An array dimensioned 14 containing the steady loading 
coefficients for each of the combined spectrum data positions 
(floating point). 

(STDYLO(I) = 0 for I = 1, . . ., 14 is default value.) 

RP 

An array dimensioned 14 containing the relative positions of 
the combined spectrum data. The RP array must be strictly 
increasing and 0.0 s RP(I) g 1.0 for I = 1, , . 14 

(floating point). (RP(I) = 0.0 is default value for 
1=1,..., 14.) 

Tnamelist input 

INPUT is reinput whenever a new set of BLH and SPL data is "| 
to be computed from the combined spectrum data. J 




TABLE X.- Concluded 


Variable name Variable description 

NTEGRAT BLH data computation control parameter (integer). 

= 0 BLH coefficients and phases are to be derived from the 
spectrum data of one combined position. (No Integration 
of the steady loading distribution is performed.) 

= K BLH coefficients are to be computed through integration of 
the steady loading distribution. The steaxiy loading distri- 
bution is to be integrated from one edge of the blade (the 
first position) to the Kth spectrum data position. There- 
fore, the bounds on K are from 2 to the number of spec- 
trum data positions plus two (for the blade edges). 

FuU chord integration is accomplished by setting 
K = MTRACKS + 2 where MTRACKS is the number of 
combined spectrum-data positions. 

= -1 BLH's coefficients and phases are to be computed through 
Integration of the steady loading distribution over a frac- 
tion of the chord. (H partial chord integration upper limit 
occurs at the K - 1 spectrum-data position, use 
NTEGRAT = K.) 

(NTEGRAT = 0 is default value.) 


ITRACK 


Number of the spectrum-data position udiose data is to be used 
to compute BLH data. K integration is used to compute BLH 
data, use default ITRACK = 1 (integer). 


PRTLINT 


Fraction of the chord along vdiich the steady loading distribu- 
tion is to be integrated. If no integration is desired, use 
default PRTLINT = 1.0 (0.0 s PRTLINT s 1.0.) (floating point). 


LO 


Steady loading coefficient for the ITRACKth comtnned 
spectrum-data position. If integration is desired, use default 
condition LO = 0.0 (floating point). 


ICHORD 


Spectrum chord function control parameter (integer). The SPL 
values at each harmonic will be adjusted by the chord function 
indicated. 

= 0 Point loading data spectrum chord function. 

= 1 Rectangular spectrum chord function. 

= 2 Hall- cosine spectrum chord function. 

= 3 Triangular spectrum chord function, 
s 4 Saw-tooth spectrum chord function. 

(ICHORD = 1 is default value.) 


INCOF 


BLH coefficient output control parameter. 

= K Every K - 1th BLH coefficient and phase angle will be 

output. (If K = 1 all coefficients and phases will be output.) 
(integer) (INCOF = 5 Is default value.) 


NAMELIST INBLH 

Optional namelist used in computing an experimental set of 
BLH coefficients. INBLH should be reinput whenever a new 
BLH function is desired. _ 

NBLHPT 

Number of BLH coefficients and [Aase angles to be determined 
(1 g NBLHPT g 2000) (integer). 

X,C 

Constants used in defining the BLH coefficient function given by 
BLH(i) = c/i* where i = 1, . . ., NBLHPT. 

ICHORD 

Same as described in NAMELIST INPUT. 

INCOF 

Same as described in NAMELIST INPUT. 




TABLE XI.- PROGRAM SPLPLT DISK INPUT PARAMETERS 


Variable name 

Variable description 

NREAD 

Number of records (of length 500 or less) of inte- 
grated blade-loading coefficients and integrated 
phases (integer). 

MPOIN 

Size of the last blade-loading coefficient and phase 
data record (1 g MPOIN s 250) (integer). 

DELTF 

Blade-loading frequency (Hz) (floating point). 

LO 

Integrated steady loading coefficient (floating point). 

RS 

Rotor rotational speed (rpm) (floating point). 

THRUST 

Total lift (lbs) (floating point). 

PRESSUR 

An array dimensioned 250 containing a block of inte- 
grated blade-loading coefficients (floating point). 

PHASE 

An array dimensioned 250 containing a block of inte- 
grated phases (degrees) (floating point). 

NB 

Number of blades (integer). 

F 

Blade passage frequency (Hz) (floating point). 

OASPL 

Root mean square sound pressure level aver- 
age (dB) (floating point). 

OBSELV 

Observer elevation angle (radians) (floating point). 

OBSAZI 

Observer azimuth angle (radians) (floating point). 

TRACK 

Spectrum position number for SPL values deter- 
mined from nonintegrated BLH data (floating point). 

PRCNTGR , 

Percentage of chord integrated, if integration is 
used to determine BLH data (floating point) 

(0.0 s PRCNTGR < 100.0). - 

, ICHORD 

Spectrum chord function used in adjusting SPL 
values (integer). 

MAXHAR 

Maximum number harmonics for which SPL values 


are computed (1 s MAXHAR 5 500) (integer). 

SPL 

An array dimensioned 500 containing the sound pres- 
sure level values (dB) (floating point). 
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TABLE Xn.- PROGRAM SPLPLT NAMELIST PARAMETERS 


NAMELIST FIXED - FIXED is input once at beginning of program 

to control SPL plotting- 


Variable name 
NSPL 


XMAX^MIN 


YMIN 


YSCALE 


NAMELIST INPUT 


NNPLOT 


Variable description 

Number of sound pressure level plots to be gen- 
erated (integer), (NSPL = 6 is default value.) 

(XMAX - XMIN) is the allowable frequency 
(X-axis) range for the SPL and BLH plotting (Hz) 
(floating point). 

(XMIN = 0.0 is default value.) 

(XMAX = 1000.0 is default value.) 

Minimum allowable sound pressure level plotting 
value (dBs) (floating point). 

(YMIN = 10.0 is default value.) 

Sound pressure level scale factor (Y-axis) 
(floating point). 

(YSCALE = 10.0 is default value.) 

Flight run number (floating point). 

Consists of the single parameter NNPLOT and is 
reinput after the completion of each SPL plot to 
determine if integrated BLH plotting is to be 
done for the next set of SPL data to be plotted. 

BLH plot- control parameter (integer). 

= 0 No integrated BLH coefficient or phase plot is 
generated. Corresponding NTEGRAT for 
program RNPPE4 is zero. 

= 1 An integrated blade-loading coefficient plot is 
generated. Corresponding NTEGRAT in pro- 
gram RNPPE4 is nonzero. 

= 2 Both integrated blade-loading coefficient and 
phase plots are generated. Corresponding 
NTEGRAT in program RNPPE4 is nonzero. 

= - 1 No integrated BLH coefficient or phase 
plots are generated. Corresponding 
NTEGRAT in program RNPPE4 is nonzero. 
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TABLE Xm.- RAMANI INPUT TAPE FORMAT 


Record number 


Record content ^ 


1 Transducer identification 

2 1500 amplitudes 1500 phases 

3 1500 amplitudes 1500 phases 

4 400 amplitudes 400 phases 

5 Transducer identification 

6 1500 amplitudes 1500 phases 

7 1500 amplitudes 1500 phases 

8 400 amplitudes 400 phases 


25 Transfer identification 

26 1500 amplitudes 1500 phases 

27 1500 amplitudes 1500 pha.ses 

28 . 400 amplitudes 400 phases 


^The transducer identification record consists of: transducer (or 
track) number, blade-loading frequency, and the number of spectrum data 
points per station. 

The spectrum data (amplitude and phase) is in a frequency domain. 
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TABLE XIV.- RAMANI RANDOM ACCESS OUTPUT (OPTIONAL) 


Record number 


Record content 



1 

2 

3 

4 

5 

6 
7 


....... Identification 

1500 combined amplitudes 
. . 1500 combined phases 
1500 combined amplitudes 
. . 1500 combined phases 
400 combined amplitudes 
. . . 400 combined phases 


22 ..... : . . Identification 

23 ....<. 1500 combined amplitudes 

24 ... 1500 combined phases 

25 .................. . i 1500 combined amplitudes 

26 ..... 1500 combined phases 

27 ...... 400 combined amplitudes 

28 . . 400 combined phases 

29 Steady loading 

30 ... Amplitude average 


TABLE XV.- TRANS REORGANIZED SPECTRUM DATA^ 


Record number 


Record content 


NRCSUM . . 
NRCSUM + 1 


A(Si) A(S2) A(S3) A(S4) 

A(Si) A(S2) A(S3) A(S4) 


NRCSUM + 

13 

A(Si) 

A(S2> 

a(S3) 

A(S4) 

NRCSUM + 

14 

PM 

p(M- ‘ 


P'M 

NRCSUM + 

15 

• P(Sl) 

P(S2) 

P(S3) 

m 

NRCSUM + 

51 

27 

Hh). 

P(S2) 

P(S3) 

pM) 


^From table XIV NRCSUM =31 for this sample. NRCSUM is 
internally computed and dependent upon the number of combined positions 
and the number of points per position. 


A(Sj) indicates a block of amplitudes from combined station Sj 
P^Sj) indicates a block of phases from combined station. 

In this example all records are of length 1,000 except for 44 
and 58 which are of length 600. . 

TABLE XVI.- SPL AND BLH DISK FORMAT 


Record number Record content 

1 SPL values for position 1 

2 SPL values for position 2 

3 SPL values for position 3 

4 SPL values for position 4 

5 to 17 BLH data for full-chord integration 

18 SPL values for full- chord integration 

19 to 21 BLH data for full- chord integration 

22 SPL values for full-chord integration 

Remarks: 


(1) Assume six sets of SPL values are computed; the first four 
using BLH data from the separate positions and the last two involving 
full- and half -chord integration. 

(2) A typical integrated BLH data record contains up to 250 of 
both integrated blade -loading coefficients and integrated phases. 


TABLE XVn.- FRAME STATISTICS AND OPERATIONS CONTROL OUTPUT FOR PROGRAM SPEGPLT 
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TABLE XVm.- DESCRIPTION OF PERIPHERAL EQUIPMENT 


DISK STORAGE DRIVES (TRANSIENT STORAGE) 

524 M CHARACTERS 

60 MS AVERAGE ACCESS TIME ' " ; t 

25 MS AVERAGE ROTATIONAL DELAY 
128 FILES AVAILABLE AT 1 ACCESS POSITION 
(FILE = 32,000 CH) 

DATA CELL DRIVES (PERMANENT STORAGE) 

2.2 BILLION CHARACTERS 
40 REMOVABLE WEDGES 

DATA MANAGEMENT SOFTWARE FOR 
PROGRAM & STORAGE STASH, FETCH 
& MODIFY, REPLACE 

MAGNETIC TAPE DRIVES 

■ MAX. DATA transfer SPEED 120,000 CHAR./SEC. - 
BURST RATE'AT 800 BPI (BITS/INCH) 
transport SPEED 150 INCHES/SECOND 
LONGITUDINAL DENSITY 200,556 AND 800 BPI 
DATA CODE 7 TRACK, EVEN PARITY BINARY CODED DECIMAL 
OR 7 TRACK, ODD PARITY BINARY 

CALCOMP MODEL 765 (12 INCH) PLOTTER 
DRUM PLOTTER 

16 SIGNALS I^COGNIZED BY PLOTTER , ^ 

- , usable SURFACE 

r X 120 FEET 

Y ;il INCHES 



TABLE RAMANI-SPECPLT PROGRAM SETUP (SOURCE DECK) 


JOB, 1,100, 50000,2000. Z4181 33088T 100677 BINll 

USER. R,5N0A1.L, DONALD ' A77544121C 11100 NAS CSC 

LINECNT (10000) 

NORFL. 

RUN(S,,,,,RAMANI,,,1) 

RUN(S, , , , .SPECPLT, , ,1) 

REQUEST, tapes, HV. 301022, ROS, DPR, WTIO BLH RXXX TKl-7 

REWIND(TA;’;i.^,TAPE7) 

COPY BR (T AP E 3 , T AP E7 ) 

DROPFILCrAiLS) 

REWIND(TAPE7,TAPE4) 

SETINDF. 

RAMANI. 

REQUEST, TAP E51,HY. SAVTP,RIS,DPR,WT10 BLH RXXX TKl-A 

REWIND(TAPE4,TAPE51) 

COPYBF(TA?E4,TAPE51) 

REWIND(TAPE4) 

DR0PFIL(TAPE51) 

REMIND ( TAP E4 ) . 

SETINDF. 

SPECPLT. 

RFL(30000) 

PLOT . CALPOST , 12 (PVF=SPCTRA , X0=2 . 0 , Y0=0 , 5 , FSH=14 , FSV=ll) 

CONT. //SINGLE PLOT MODE. 

CONT. 'LEROY . PEN TYPE BLACK INK COLOR. 

CONT; rag TYPE PAPER. PAPER NO. 00.// 

EXIT. 

DROPFIL (TAPES) 

DROPFIL(TAPE51) 

7/8/9 

SOURCE DECK PROGRAM RAMANI 
7/8/9 ' ' " 

SOURCE DECK PROGRAM SPECPLT 
7/8/9 

DATA FOR PROGRAM RAMANI 
7/8/9 

DATA FOR PROGPvAM SPECPLT 
6/ 7/8/9 
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table XX.- RAMANI-SPECPLT PROGRAM SETUP (DATA CELL) 

NOTE: The * control cards refer only to the plotting program 
. SPECPLT. If these cards are removed, no combined trans- 
ducer spectrum data plots are generated. This deletion 
produces the combination of program RAMANI alone. *-This 
sign is not a part of the control cards. 



JOB.1,100, 50000, 2000. Z4181 33088T 100677 BINll 

USER. RANDALL, DONALD 47754A121C 11100 NAS CSC 

NOMAP . . . 

LINECNT (10000) 

NORFL. 

FETCH (Z4186, .binary) 

COPYBR (BNFILE , R.V'^IANI , 1 ) 

*C0PYBF(BNFILE, SPECPLT) ' 

REQUEST, TAP E8.HY. 301022, ROS, DPR, WTIO BLH RXXX TKl-7 

REWIND (T.\PE8,T^E7) . . , 

COPYBF^APES.TAPE?)' ■ 

DROPFIL (TAPES) 

REW1ND(TAPE7,TAPE4) 

SETINDF. 

RAMANI. 

REQUEST, TAPE51.HY. SAVTP,RIS, DPR, WTIO BLH RXXX TKl-4 , 

REWIND(TAPE4,TAPE51) 

COPYBF (TAPE4 , TAPE51) 

REW1ND(TAPE4) r , , , 

bROPFIL(TAPE51) 

*REWIND(TAPE4) , , 

*SETINDF. . ' 

*SPECPLT. 

*RFL(30000) 

*PLOT . CALPOST , 12 (PVF=SPECTRA ,X0=2 . 0 , Y0=0 . 5 , FSH=14 , FSV=11) 

*CONT.// SINGLE PLOT MODE. 

*CONT. LEROY . 3MM PEN TYPE BLACK INK .COLOR. . . .. , 

*CONT. RAG TYPE PAPER. PAPER NO. OO’.// 

EXIT.' , 

DROPFIL (TAPES) 

DR0PFIL(TAPE51) 

7/8/9 

DATA FOR PROGRAM RAMANI 
*7/8/9 

* DATA FOR PROGRAM SPECPLT 
6/7/S/9 



TABLE XXI.- TRANS-RNPPE4-SPLPLT PROGRAM SETUP (SOURCE DECK) 


JOB, 1,100, 50000, 2000. Z4181 33088T 100677 BINll 

USER. RANDALL, DONALD 477544121C 11100 NAS CSC 

LINECNT(IOOOO) 

NORFL. 

RUN(S,,,,,TR.\NS,,,1) 

RUN(S,,,,,RNPPE4,,,l) 

RUN(S,,,,,SPLPLT,,,1) 

REQUEST, TAP ES.hT. 3208057 ,ROS .DPR, WTIO BLH KXX TKl-4 

REWI.ND (TAPES, TAPE7) 

C0PYBF(T.^J’E8,TAPE7) 

REIJIND(TA?E7) 

DR0PF1L(TAPE8) 

SETINDF. 

TRANS . 

REWIND (TAPE4) 

SETINDF. 

RNPPE4. 

REWIND (TAPE4) 

SETINDF. 

SPLPLT. 

RFLOOOOO) 

PLOT.CALPOST,12(PVF=SPLBLH,XO*2.0,YO=0.5,FSH=14,FSV=11) 

CONT. //SINGLE PLOT MODE. 

CONT. LEROY .3MM PEN TYPE BLACK INK COLOR. 

CONT. RAG TYPE PAPER. PAPER NO. 00.// 

EXIT. 

DROPFIL (TAPES) 

7/8/9 

SOURCE DECK PROGRAM TRANS 
7/8/9 

SOURCE DECK PROGRAM RNPPE4 
7/8/9 

SOURCE DECK PROGRAM SPLPLT 
7/8/9 

DATA FOR PROGRAM TRANS 
7/8/9 

DATA FOR PROGRAM RNPPE4 
7/8/9 

DATA FOR PROGRAM SPLPLT 
6/7/S/9 



TABLE XXn.- TRANS- RNPPE4-SPLPLT PROGRAM SETUP (DATA CELL) 


JOB, 1.100, 50000, 2000. Z4181 33088T 100677 

US ER . RANDALL , DONALD 

NOMAP. 

LINECNT (10000) 

NORFL. 

FETCH (Z4188, , BINARY) 

COPYBR(BNFILE,TR.\NS,l) 

C0PYBR(BNFILE,RNI'PE4,4) 

COPYBF (BNFILE , SPLPLT) 

REQUEST, TAP E8,HY. 3208057, ROS, DPR, WTIO BLH RXX TKl-4 

REIIIND(TAFE8,TAPE7) 

COPYBF(TAPE8,TAPE7) 

REMIND (TAPE?) 

DROPFIL(TAPE8) 

SETINDF. 

TRANS . 

REWIND (TAPE4) 

SETINDF. 

RNPPE4. 

REWIND (TAPE4) 

SETINDF. 

SPLPLT. 

RFL(30000) 

PLOT . CALPOST . 12 (PVF=SPLBLH , X0=2 .0 , Y0=0 . 5 , FSH=14 , FSV=11 ) 

CONT. //SINGLE PLOT MODE. 

CONT. LEROY .3MM PEN TYPE BLACK INK COLOR 

CONT. RAG TYPE PAPER. PAPER NO. 00.// 

EXIT. 

DROPFIL (TAPES) 

7/8/9 

DATA FOR PROGRAM TRANS 

7/8/9 - ' - 

DATA FOR PROGRAM RNPPE4 
7/8/9 

DATA FOR PROGRAM SPLPLT 
6/7/S/9 


BINll 


TABLE XXm.- RAMANI-SPECPLT-TRANS-RNPPE4-SPECPLT PROGRAM 

SETUP (DATA CELL) 


JOB, 1,150, 50000, 4000. 24181 330S8T 10067 BlNll 

US ER.RAN'DAI.L, DONALD 477544121C 11100 NAS CSC " 

NOMAP . 

LINECNT (10000) 

NORFL. 

FETCH(Z4186, .BINARY) 

COPYBR(BNFILE,R>\M\NI,l) 

COPYBF(BNFILE,SPECPLT) 

FETCH(Z4188, , BINARY) 

COPYBR(BNFILE, TRAINS, 1) 

COPYBR(BNFILE, RNTPE4 ,4) 

COPYBF(BNFILE,SPLPLT) ; ■ ' , J-;' L 

REQUEST, TAPES, HY. 301022, ROS,SPR,imO BLH RXXX TKl-7 

REWIND ( TAPES , TAP E 7 ) 

COPYBF(TAPE8,TAPE7) 

DROPFIL (TAPES) . - 

REWIND(TAPE7,TAPE4) 

SETINDF. 

RAMANI. 

REQUEST, TAPE51,HY. SAVTP,RIS,DPR,WT10 BLH RXXX TKl-4 

REWIND(TAPE4,TAPE51) 

COPYBF(TAPE4,TAPE51) 

DROPFIL(TAPE51) ‘ . 

REWIND (TAPE4) 

SETINDF. , , 

SPECPLT. ‘ . 

PLOT.CALPOST,12(PVF=SPECTRA,XO=2.0,YO=0.5,FSH=14,FSV=11) 

CONT. //SINGLE PLOT MODE. 

CONT. LEROY ,3MM PEN TYPE BLACK INK COLOR. 

CONT. RAG TYPE PAPER. PAPER NO. 00.// 

REWIND(TAPE4) 

SETINDF. 

TRANS. 

REWIND(TAPE4) 

SETINDF. 

RNPPE4. 

REWIND (TAPE4) 

SEXlNUr. 

SPLPLT. 

RFL(30000) 

PL0T.CALP0ST,12(PVF=SPLBLH,X0=2.0,Y0=0.5,FSH=14,FSV=11) 

CONT. //SINGLE PLOT MODE. 

CONT. LEROY .3MM PEN TYPE BLACK INK COLOR. 

CONT. RAG TYPE PAPER PAPER NO. 00.// 

EXIT. 
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TABLE XXm.- Concluded 


DROPFIL (TAPES) 
DR0PFIL(TAPE51) 

7/8/9 

DATA FOR PROGRAM RAMANI 
7/8/9 

DATA FOR PROGRAM SPECPLT 
7/8/9 

DATA FOR PROGRAM TRANS 
7/8/9 

DATA FOR PROGRAM RKPPE4 
7/8/9 

DATA FOR PROGRAM SPLPLT 
6/7/8Z9 



table XXIV.- RAMANI-SPECPLT-TRANS-RNPPE4-SPLPLT PROGRAM 

SETUP (SOURCE DECK) 

NOTE: The * control cards refer only to the plotting programs 
SPECPLT and SPLPLT. If these cards are removed, no combined 
transducer spectrum plots, or sound pressure level and integrated 
blade loading data plots will be generated. This deletion results in 
the program combination RAMANI-TRANS-RNPPE4 being executed. 
♦-This sign is not apart of the control card. deck. 


JOB, 1,150, 50000, 4000. Z4181 33088T . 100677 BINll 

USER. RANDALL, DONALD 477544121C 11100 NAS CSC 

LINECNT (10000) 

NORFL. 

RUN(S,,,,,RAM\NI,,,1) 

*RUN(S,,,,, SPECPLT,,,!) 

RUN(S,,,,, TRANS,,, 1) 

RUN(S,,,,,RNPPE4,,,1) 

*RUN(S,,,,, SPLPLT,,,!) 

REQUEST, TAPES, HY. 301022, ROS, DPR, WTIO BLH RXXX TKl-7 

REWIND(TAPE8,TAPE7) 

COPYBF(TAPE8,TAPE7) - .. 

DROPFIL (TAPES) 

REWINT)(TAPE7,TAPE4) • ' ; 

SETINDF. .... , 

RAMANI. ■ 

REQUEST, TAPE51.HY. SAVTP,RIS, DPR, WTIO BLH RXXX TKi-4 

REWIND(TAPE4,TAPE51) 

C0PYBF(TAPE4,TAPE51) 

DROPFIL(TAPE51) 

*REWIND(TAPE4) 

*SETINDF. 

*SPECPLT, 

*PLOT.CALPOST,12(PVF=SPECTRA,X0=2.0,Y0=0.5,FSH=14,FSV=ll) 

*CONT. //SINGLE PLOT MODE. 

*C0NT; LEROY .3MM PEN TYPE BLACK INK COLOR. 

*CONT. RAG TYPE PAPER. PAPER NO. 00.// 

REWIND (TAPE4) 

SETINDF. 

TRANS. 

REWIND (TAPE4) 

SETINDF. 

R.fn>PE4. 

*REWIND(TAPE4) 

*SETINDF . 

*SPLPLT. 

*RFL (30000) 

*PLOT.CALPOST,12(PVF=SPLBLH,XO=2.0,YO=0.5,FSH=14,FSV=11) 



TABLE XXIV.- Concluded 


*CONT . //SiriGLE PLO’-' MODE. 
*CONT. LtP.OY .3K-I PEil TYPE 
*CONT. RAG TYPE PAPER. 

EXIT. 

uROPFIL (TAPES ) 

DROPFIL(TAPE5l) 

7/8/9 

SOURCE DECK PROGRAM RA^DU^I 

*7/8/9 

* SOURCE DECK PROGIvAi: SPECPLT 

7/8/9 

SOURCE DECK PROGRAI4 TRASS 

7/8/9 

SOURCE DECK PROGRAT-I RNPPEl* 

*7/8/9 

* SOURCE DECK PROGRAM SPLPLT 

7/8/9 - 

DATA FOR PROGRAI4 RAMANI 

'" 7 / 8/9 

* DATA FOR PROGRAM SPECPLT 

7/8/9 

DATA FOR PROGRAM TRAHS 

7/8/9 

DATA FOR PROGRAM RliPPEl* 

'"7/8/9 

* DATA FOR PROGRAM SPLPLT 

6/7/8Z9 


BLACK IKK COLOR 
PAPER NO. 00.// 



TABLE XXV.- PROGRAM PERFORMANCE 


Program combination 

CPU time 
(seconds) 

PPU time 
(seconds) 

OS calls 

RAMANI-SPECPLT 

38. '7 

448.3 

923 

TRANS-RNPPE4- 

SPLPLT 

66.2 

299.1 

1186 

RAMANI-SPECPLT- 

TRANS-RNPPE4- 

SPLPLT 

104.3 

749.2 

1901 





(a) Location of pressure transducers. 


; - r * 



(b) Typical 40 percent and 100 percent chordwise integration of pressure distribution. 
Figure 1.- Pressure transducers and pressure distribution. 
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$ INPUT 


NTRACKS = 7, 

DBREF = O.IE+Ol, 0.lE*-01t 0. IE*P 1 , 0. lE_t^^ O.lE+OVt Q.lE+qi,„ 

0«0f 0«0t 0«0t 0«0f 0*0 f 0*Ct 0*0t 0*0ff 0«0f 0«0t 0*0f 

O.Ot 0.0> O.Ot O.Oi 0.0» 0.0» 

NPRINT =25, 

!,!,N5.KIP ., = 0, , , J 

ISTN = if 3f 4f 6f Of Of Of Of Of Of Of Of Of Of Of Of Of 

0 f 0 f 0 f 0 f 0 f 0 f 0 f 

, ,,J,STN = 2f 3f 5f 7f Of Of Of .Ot^,., Of O.f . Of 0, 0, 0, 0, .Of ...Qt 

Of Of Of Of Oi ..._Of._.ai. 11 

11.mtrac;ks = Af, . „1 ..Ill'l.llZ 1 

llMGHf ' . = , o.ie*oif , 1..111.11.1.’'1ZZ. 1 1'l.'.l 1 .. 

•~ Tt)>TN' "' = If 

~~N T AP E"" '= I f ' 1. , 11.1..111. 

ZQrZir = 0.7A6E+00f 0.li2E + 007~ pl389E^0V'3~.34>E^ 

0. l26E+00f 0.2E-0 lf O.Of C.O/ 0.^^^^^ ..plOf p.p* Q.o, p.pf 

o« Of o«Of o»Of o«Of o«bf o«o'f b*Of 'o«Of b*bf 


icND. 


(a) Inp\it. 

Figure 2.- Sample input and output for program RAMANI. 
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CClblMN^ C> ilAIH.** CilA 


CCMPINIM& 0» T«/.NSbUCEB StATICt SPCtTAU^ &AIA 


h:.ai valvls . rj' .t'C'jd iCH .i- . ... . finai vAiirs kib pcsitipn / 

(SBlCIRUP OAtA FfO« 5T*.1lt,NS 1 *AU I 8K>« ti«€C1«‘JP fATA fFQM STAIIIM* ) M.\s MciN SCAie;; b, THE ■ V:oiaow^ 




- . . .. -AWlllULt 



.. 


APFUTiiOl 


1 

0. 

0.i!KiA7f>IA 

1 . 7/A/1I*0i 

1 

0. 


2.0AA2AI-I) 

1.000307 *0/ 

i 

|.Ar0^«:«00 

3.iSfbd'.-0) 

S. A )^.‘>6C • JO 

2 

1 .A 79/ 1 

: «0i> 

I.IAJU9;-01 


i 

. *U0 

2.A«.A-)Ui-Ci 

1. 16062(01 

f. . > 

/.VSd'i.i 

: «0J 

7.6 16091.-04 


A 

A.Ai7d::*t;0 

A. JliAJl’UJ 

-».Aiiori-Jt 

A 

A.Aj7i|7 

: *00 

I.A6ti,7£-0) 

-).*7CI7i*CO 

>... 



J.t/a>A*.-Cl. 

_.rJ.OA6«2i»OI 

, ... > 

A. 91 /U 

: *00 

B.OI IO4f-0/ 


A 

t , * . • 00 

rv-ci 

-1. JS'*/'!:* >t 

6 

7. J966 ■ 

: *i:c 

I.C9/4/:-0t . 

~).6<*9iSc*31 

-t 

. .\A. 9iAi« ■ *ca 


* • -A. tAoAdi *Cj 

^ 7 7 

a. 976 7- 

: *00 

7.7ll.*2t-04 


• 

t.OlA»v ; *a 

J.l676Si-UJ • 

• -A,6AO**A»*0.* 

B 

1.0)9',. 

: *01 

I.ICd4A:-0i 


V 

l.li:jAj:*OI 

A.f ‘04S:--0/ 

2. /I '6-4r.*.ii. 

A 

1. I«)A i 

: *01 

I.C7d24>-0/ 

6.6)61 7'. * Jl 

10 . 

; *01 

i.cgj/ir-CS 

i.9SA/*»«ro 

10 

1. J)l4 .- 

; •-! 

1.19JJA1-0) 


U - 

...i.A7<.;*;«ci 

/.T‘.Cl9:-0i .... 

/./3i/7:*oo.. 

_ 11 

1 .479/ . 

; *6l 

7.A14 74'-C4 


-.. 1/ , 

1.6/7/.; : *01 

J.«00/6v“Oi 

A. 

1/ 

1.6/7/. 

. *01 

1. JICiiJk-0) 


li 

. t.7IAl-'i«0l 

3.AV91/L>02 

-1. )070d!;*0t 

Id 

1.7761:. 

' *01 

l.))C6')'-0/ 


.. lA 

t.A/ioj ; *01 

).C'‘A70v-Oi 

-I.JDI ft« JI 

lA 

l.-7/)s.r> 

. *01 

1 .C6JiJ7t-0) 


. lA 

/.OfiJlKlI 

?• /M..6I -Wi 

-I.FASIJKxn 

16 

/.07tu: 

: *ci 

A.A/7U9-;-C4 


. .u 

/./l«4> ;«C1 

i.AA«s7r>Qi 

-/.SAOAV: tOI 

16 

/./IN-I • 

: *01 

l.C7e7Jl-b« 


XL.. 

2«.)oAar' i*C|. 

_ 2.1f3la:>02 

6,6AO<2f,*0J.. . 

1/ 

/. )6bp. 

*01 

V.49214--C) 


.. to 

/.Al6/< .*UI 

6.S6%/4i:,-oi 


lA 

/.61A7. 

*01 

i.;6i7).:-o) 


... 10 

/.A6/ r.- : «C1 

i. 600617.-0) 

A./aA67L*;>U 

19 

/.A627/ 

• Cl 

e.)4 d/4.-04 


.. M. 

/.no:.? : «.l| 

A.7iSJ/-.-i)i 

• .7aS0At*-JJ 

29 

2.9I066 

• 01 

t.l6/u6:-0) 

A. 7J6) 7i *00 


i.AAdSi : *01' 

i.Aisvs:-o2 

d.AdUril *0U 

ft 

/.9*,d6 

• 0* 

>.ai 6 /w*- 0 ) 


ft 

i.l06>t ‘ *J1 ' 

a.A)<.6c:-<9i 

-d.OAjiri.* jj 

ft 

A. 10661 . 

• Cl 

l./d299.-C) 


. JJ. 

. a./saa- ; «oi 

_2.70JiAf0| 

•A.VA/ 76v*0) 

ft 

J./646. 

• Cl 



;a 

J.AO/ ).* : *01 

/.C)A6 3>.-0i 

-5. )AACUC*<7J 

26 

i.402J/ . 

•01 

1.K66/-.-C) 

i.l6FOir»OI 

ti 

I.AAOl. : «UI 

A.3A7i/l-Q* 


2A 

i.S60).,. 

*01 

2.9690A£-Oi 

-6.)AB74r*00 


coMttiAiiNo ct T-nuci pa»a 


COMMNINC OF TKANSOUCIB SUTIO'* 5F£tf«UN OAU 


... riNAt .VA4US .F?A PCSIllOh . } 

.. . IVFItTFU" CAIA F«C«« SI4IJ->.S A Aif 5 MAJ BgfH AC'OCCI 


FiKAi vAiutS ro«. Ill i;n_ A 

(VPiCtBUB P^IA fm'cp SIAflCSS b ANC 7 HA& AKN AOOrOI 


AfFLt.lUtlS PHASC 


FBJ.iiy • j.C'f __APFII tH.A$t..„ 



... . 0* 

t'.OI664i-U' 

i.4Oo>i'*;-«02 


l.A7929)«0J 

l.// 76 7i-Oi 

7.0A66n?.*00 

i 

/.9>d6«:*C0 

1 .COIAA'. *0) 

2.7)dd/»*31 

A 

. . A«AJ747;*00 

(.'76(ni:-0) 

d./U 72<t> *00 


J*"*! 7l6i. «C0 

9. l4'«9.1.'-02 

-d.AO.lAvt^OI 

a“" 

I.J66A6?.»0J 

■|.66/2I'>C) 

'•1.4A7CJ'.*0( 

I 

a.a767«:«oo 

I'.l 12/6.-0I 

-1./6I//?*.)! 


l«0)66/t«u 

I./64F.) :-o) 

t.'iuts il-0/ 

9 

l.td)9)t«OI 

2.96C26S-02 

|.‘;iA24il-0l 


1.3ll.l6k«Cl 

I.AllAO-.-O) 

-I. 766661*91 

ll_ 

.„^_I.A79/***0I 

M./AJ)6i-0), . 

_J. JtvlA-:* Jl. 


l.A/7//i*Cl 

2 ./iort£-oi 

1. 70716'*0I 


. i«)/6i6:*ci 

1.67A|«.-C2 

-2.69l}0l*Cl 


1.9/JC»:*CI 

l«A/)d'r:-OJ 

-A.4634tr*30 


/.07l0i:«0l 

I.C4A2At-01 

-1. 7964/‘*C0 


/./lB9j'*dl 

r«7296j'-0t 

)«Jd4l»0l 

.. ._ |7_ 

2.)66»*.S*01 

|.|4760'-U/' _ 

2.A4/40t*'7l 


2.6147.: toi 

2. l9)7d.-0} 

•t.l64l6{«Ji 


2.662 7.'s*0l 

1.0J/6Ai.-0)- 

-). 1741 7'*0J 


2.dl066:«0i 

J, 5/9)71-3). 

6.61 t7^.•CJ 


2.9606***ci 

0.664461-0} 

1.2B6A ir»JI 

'ft 

i«i066i:*Qi 

2.|9C67t-0.1 

7. B'J9)9:*0J 


i.26646:*Cl 

I,23t0'd!-0) ...... 

-6.6«6r)'*JJ 

/A 

J.602j7£*01 

l;2dl/0:-0i 

3. 04 J 22) ••10 

2> 

).660JC2«0I 

).'}024e(-0) 

|.A'76A6i*3l 



10 

It 

u 

li 

|A 

IS 

I* 

. IT 

l« 

il 

/I 

ft _ 

/A 


0. 

l.479/i 

;-*oo 

7.90421^-14 

1.437141-0) 

0. 

-). 369307*00 

2.“:;d6 •. 

:*C0 

1.300/97-0) 

2.9a/69(*0l 

A.;;7»* 

k *00 

l.AO/lAl-O) 

2.00M.9I *00 

.. .A*.'‘l7l. 

>C0..- 

).»9143!r-02..., 

-a»6i4m*oi 

t, 146* • 

:*03 

1.66C0il-0i 

-3.H4))6&*0I 

a. *767. 

i.*M 

1.166471-0) 

r.6ldlb(*30. 

1.0)64. 

:*ci 

l.»))/Al-0) 

6;06«.)21»C3 

l.IdJA. 

f *CI 

l.Cd)/l(-0/ 

7.0a092F»30' 

1. ))!)•> 

£•01 

1. 74C9II -0) 

9.0473)'*00 

1.479/ • 

: *01 

1.24 70 71-0) 

*f-o» 

■ *l,6/7.-. 

*: *ci 

“ ■l.d4e9lt-0l 

4.<M06)t *0/ 

1.7/61 

V *01 

l.|9t0V».-02 

-1.306611*0) 

1.9/); •. 

. «CI 

I.4t43dt:-0i 

-9.66/441*0) 

/.071. 

• 01 

1, 2/99)1-0) 

A. 1/6655*00 

/./id* . 

;»01 

1. 7/4961-0) 

•1. 77067/«9) 

/. )66t < 

; *CI 

A.I97)/l-0) 

Oi)d44' •01‘ _ 

/.6|4f' 

! .01 

|. 74 76)£-6) 

1.«719M*!U 

2.66/7.. 

r.«Cl 

1.46)101-0) 

-6.A234 7f.*C0 

/.»l'J*. •• 

: .Cl 

2.49766>;-0) 

-l.ir7S4L»Cl 

/.6»4- 

£•01 

A.62«79k-0i 

/. B66441*;i 

3. U66 

; »01 

1.649)64-03 

-4.A?25dt*0l 

3.2646— 

r»CI 

1. <16631-01 „ 

1.061 741*01 

43/ ) ■ 

i • Jl 

i.44/974-03 

-4.90ai)l*03 

).660)> . 

•.;*0| 

2.44J6i.':-03 

2.2006ac*3l 


(b) Output. 


Figtire 2.- Concluded. 
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>IN£UT r_ -- 

MTRACKS = 

T^UST = Q.4171F»Q4. 

R-PM = 0.355E»03. 

XMIN =■ 0.0, 

XMAX = O.IE^QA. 

RUN = 0.509E»03. ' 

YMIN » -0.1E*Q3. j 

VMAX s -Q.n, 

YSCALE = 0.1E*02. 

NNPLOT = 2. 2. 2. 2 , 0. 0. 0. 0. 0. Ot C» 0« 0» 0» 

QBREF = 0.1E*01. 0.1E»01. 0.1E*01. 0.1E*01. 0.0, 0.0. 0.0. 0.0. 0.0. 

- 0«0f Q»0« 0»Qt OaOt 0«0t ^ ^ - 

lOPTN =1. 

$ENO 

(a) Input. 




(b) Output. 

Figure 3.- Sample input and output (graphic) for pr(^ram SPECPLT. 


140 





aLflCE uifoitf; coEfrlUEJ-is isoiiB’.? 5 /UMni k.«ic lOfSiw c5EJFa:£;.:c iSD^cire/LOStm , j bl^v; uvj-.ir. iiouis\re/teai» 






rv! a S 09 ' S \ .00 

e i(v£ m H Oacn. t-Z3.t>s oft 

^ «Ti s sss 00 ? .ioe rfMUir « nmia 




ODaiuuu^uiiMMliuuut^uuuiMUuiiui^uuUiil'uuuuLuuui^UMi.^|iuuui^^ 





•«wc- 


'^TViumiiuliMuuiiluiuJSiliiLuuuluuumLuuuuliiUuiuluituiuliuijiuiiuiiiiuil 
" M (M M’ *a bri we xs •.«) aj> «se 
rKcrrrcY. w 


(b) Concluded. 
Figure 3.- Concluded. 
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SROTQR . 
NSPL 
EFMACH = 
OBSELV = 
EFPTCH 
OBSOIS = 
NR 

THRUST = 

c ^ = 

RS 

F = 

EFRA D 

EFCpD 

XMAX * 

OBSA7T = 
STDYLO = 

i-RP— — ; = 

TBLHOPT = 
SEND “ 
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6* 

, 0.A8E+00. 

0. 197E+00. 

0. 1 13E«^00. 

0- 15P97E+03. 


9. 

0.^171 E*04. 

0.10a48E+04. 

0. 355E + 03. 

0. 59?E*-0l . . • 

0, 14E+0?, ^ 

0. lOa33E+Cij. ■ 

0. 1E>04. ■ 

-0.536E+00, _ JL _ „ 

0. 634E+00. 0.389EV0a, 0.231E>00. 0.lO6E^OOt 0.0, 0.0, 0.0, 

0«0« 0«0« 0«0t 0«0v 0«0t 0«0t 0* 0 9 


— OrO.- “Orl5E»OO#"“0r3E*00r 0. 5E^ 00» 0. 75E^00* O. lE^Ol t 0,0, 0*0» 

0«0« 0«0v 0«0f 0«0t 0«0t 0«0f OvOv 0»0t 


0. 


Figure 4.- Sample input (parametric) for program RNPPE4. 





Kur.»*( • o« 

|t«fC«t . 

PU II INI ' • ' A. tr « 31. 
tri • 0.frMf «33* 

tti»«ao ■ ' i« 

UiCdf ' • s« ' 

iriio 


LflAniNlj H«4HONl,C CiJlFMUtNtS ANU PliASI A-'iJltS 
|:»- tuAt.iN(; IS ^ 


•>*MMONlC'*«Uf*':N ' HRfSSURf ' ALPHA 


PHASt. 


■ * r* 

.6 3*1 00 

1. 00000 

• 0.00000 

A 

.01616 

.0/3VI 

.14V7S 

II 

.OOAOV 

. C07V6 

.00/66 

16 

. (10* >6 

.00 Set 

-.01 iSV 

PI 

.00/aH 

.noAAs ) 

-.OOV/2 

P6 

. 001 70 

.00>6i 

-.OOIAS 

31 

■-‘oaiA?" 

.00240 

'. /♦/•iO ' 

36 

fOl 1 1 

.0017S 

-.10466 

A1 

.00096 

.O'JIM 

-.ue40s 

A6 

.000 76 

.001/2 

-.26424 

61 

.0U06A 

•UJIU2 

-.06/22 

66 

•CUQ&P 

.OOQVH 

-.29030 

61 

•bUOAR 

.IUJ09/ - • 

; 10476 

' 66 

.UOUAl 

. OUOHO 

.147VA 

71 

.0J0A3 

.00063 

.OlA/l 

It ' 

.0003A 

' .000S4 

' .03220 

ti 

.OUO 36 

.00047 

-. I4IV3 

«u 

• ciui^a 

• UOi.44 

'.OS 166 

VI 

.OUOIA 

.UUbSI 

. /sosa 

V6 

. 000 /s 

• oouio ■ 

*T0H213 

101 

.00046 

.fiJOM 

.CeSSU 

106 

.00047' 

.00074 

.03021 

111 

"‘.000P3 

' ; 00041 

-.19772 

116 

• ■ ■ .00020 

■ ' ’ .00332 

-.ISliS 


.roo?o ■■ 

■.1^3046' 


IP6 

.00019 

' .00030 

-.4:>c>6 3 

131 

.00026 

.00041 

-.24025 

136 

■ iCOOIS 

. 00023 

'.0<>3a0 

lAl 

.00014 

,00021 

-.29398 

146 

.00014 

’.015022 

-.lVi02 , 

141 ' ■ 

“00014 ■ 

“ .090/2" ■ ■* 

./4rt4’J 

166 

.70014 

. 00022 

-.13423 

l6l 

■ .TiOOl/ 

.09011 

-.20/5/ 

' 166 

.00012 

.COClv 


171 

.00013 

•OOOiA 

-.0*111 

1/7. 

.00012 

.COMO 

,3.»VM 


"■?C30C9 ■“ 



IA6 ' 

.CCOll 

. T3321 

,*V.711 


(a) Input. 


I»:» SOMNII PAIiSSijn l»-¥fis A! VAAi«'<i.»S lA r../**fiUS 


'niiVisv't** Yuv'ai itiN T "'Vivi' 


Uris^ivt A/I 'Tum’ 


afl 

A..1 

■ 'l.‘* >' 

U. 3 
^'J.3 
Pi. i 
P*-. 3 
\ ■ 

*if . i “ 
A.-.. 3 
Ai. J 
A?. 1 
A.’ . J 
Jo • .» 



lINIf 


71. IA6 
t*. A/N 
7i», LAN 

Al.Vl ] 
(lA.faVf 
I>/.N'76 
AA.IIV 
fal. Atit 
V:».OA 7’ 
t>C. IA6 
A/.AJ'J 
AN, ferA 
AV.rtur 
^3, IC6 
AP.Afci" 
AA. |7A 
A6.37V 
A I. yPP 

2o. IM 
"i 1.07V 
1.'. 3<tP 
AU.7b> 
AA. laO 


l >.0 

lA.O 

17.0 
IV, 0 

71.0 
Pi.O 

< A. 0 

Ptt.O 

31.0" 

33.0 
3A.0 
3a. 0 

AO. O 

AP. O 

"aa 7 o’ 

A7.0 

AO.O 

S/.O 

AA.O 

A7.0_ 

Vv'.'o 

61.0 
6A. 0 
66.0 




(b) Output. 


Figure 5.- Printed ii^>ut and output for Case A. 
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Iltipllf 


*< rfn 4 *r • 6 . 

pRTi iNf • 0. u «ni,' 


liAKMltSIC CCi Ff IC(F»<I S ASOUS 

IHF SUAilV litAOnVu IS f ..^1176 MSI 


Ml 


n. 0 . 


KA ^ HIIKir . Nlll'eFR 


ir muci • 
INCdF ' • %. 

$F»iD 


•a 

•it, 
lOI 
lOA 
lit 
t u. 
121 ” 
l?t> 

m ' 

13 d 
tAt 
Ud 
■ ISi " 
I St . 
161 ' 
1 h 6 
171 
1 7A • 


.2/176 

.Oil7S<> 

•00217 

,coi'>a 

.00126 

• CDOixl 
“ TCCdaff " 

•OOObS 

•ooobO 

• OilOoO 

• 0009 i 

•'(io*i 9 i 
.00066 
' .nuoAo 
•0006) 
■.t.C062 ■ 
_«00036_ 

.' 6 oo Vu 

• <>00 JO 

.00062 ' 

• r.oo)7 
• 000 )S 
.OC02P 

“0003*— 
. 000)0 
.00020 
.00027 
■ .00022 
.00024' ■ 

■■. BOO /)'" 
. 0002 ) 
.00021 
■*.00021 " 
.00021 
■■.00026 
- T 00021 — 
.00020 


1.00000 

.02/71 

. ooolo 

. U 0 Stf 2 
. 0U6SJ 
.no<2b 
■■70:)2‘/6 
. 0 O 2 JV 
. 00/21 
. 002/3 
.00 1V6 
_. 001 7.1 
I0OIS6 '■ 
. 0016 <I 
.OOlbri 
'. ooisv 
.00166 
. 001 i2 
" 7001 6 I ■ " 
.00 113 
.0016) 

. 00 1 J .) 

. 00 1 ; 7 

• 00102 

" 70Cil2»'“ 

.00113 
.00106 
' .OOOsO 
.00002 
■_, 00 UK 7 _ 
* .*OOO0‘> . 
.OOObS 
.00077 
' . 00070 
■ .0007) 

■ .OOC67 
■“ ; orjC ' 7 T ■ 
■■ .00072 


0.00003 

. 02;-** -7 
-.26 122 
.1)720 

' ■.‘6 1/6/ 
-.066/3 
-.07V19 
-.06097 
.2S906 
_-.02 60*. 

' .260')'S '■ 
.10/72 
.3J1S2 
.21 J64 
-.0900) 
_. 212)6 

-.1 i /•la 

-.17906 
-.31225 
.09 702 
. 101.36 

■'-: i 72 i /‘ 
.07601 
- .010S7 
-. lOlbS 
-.ltd75 
..31311 

'■".' rV 266 

-. l / Ci '2 
-. 16 S 01 
.1715) 
.Qc.066 
-.16096 

I ' ar *)/ ■ 

■ - . 17/56 


(a) Input. 


im. SOUMJ PHCSSUftfe KVEIS At VARIOUS Rd NIJMHFKS 


OASfKVlK firVAIinfi ANOCI’ 


(leSCAVlft A/lKUlH A5‘.u 


6.0 
8 . 0 _ 
“1 > .0 

IC.O 

_/ C , 0 - 

26.0 

20.0 

_ 32 . 0 ^ 

) 6 .*«y 

60.3 

' 66. fl 

60.0 
' 52.0 

56.0 

* oc 73 

66.0 

' 60.0 

72.0 
76 . U 

ao .o _ 

■~B6.0 
' 80 . O ' 

92.0 ■ 

96.3 ■ 


SOL 

73.UV9 - 
•7 6. l^.O 
“ 7 * 1 . > 7 S ' 
bJ.Vl) 
-69,-607- 
. 63.989 
66, 606 
__66 . 6S9 _ 
6 6 . *60 9 
66.621 
61.906 ' 
62.996 
' 6/.5J1 
_6Oj_l0<^ 
6 I . /'0 1 
5V.)5 7 
ol.OoS 
59. J25 ■■ 
“59.617 
_ 56 j ^ 7 d _ 
5*7. 892 ■ 
' 58.013 
■ 5Tl57) 
56. 691 


12.0 

17.0 
_ 19 ^ 0 __ 

21.0 
26.0 
26.0 

__ 2 « s . 0 _ 

31.0 

33.0 

35.0 

30.0 

60.0 
_ 62 . 0 _ 

65.'0 
■ 67,0 

50.0 

5 2.0 

56.0 
_5 7.0 

5 ' 9 .* 0 " 
' 61.0 
66 . 0 ' 

' 66.0 


do .) OA 


(b) Output. 

Figure 6.- Printed input and output for Case B. 
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Nttr.vAi - >1. 

JfBACK . • .Jr 

Pan INT - O.^TSfOO. 

in • n.n« 

iNcnP • I. 

»fND 


Ln«0|NC iURJmMIC.ClltFI-lCICNtS 4N0 PmasC ANCLFS 


" ' 

THf StCAHT iOAOIftr, IS • ' 

.17739 PSl 


»yiann»iic' 

NllMrtFR PRissuae 

_. .. alpha 

PHAse’. 

1 

• ITMV 



? 

.Odl40 

• . .47061 

-.46619 


.OOVeA 

•0S446 

•7476d 

A 


.05066 


s 

•ousvn 

.03375 

.USB09 

« 

.C0I4A 

.Ol'OS 


t 

.ocib? 

.C0S16 1 

-.01319 

3 

,002 e>* 

•0I6C0 

-.06793 


.00471 

. 07650 

-.17465 

10 

.D01>0 

.00/14 

.110/7 


.OUl IB 

. C066S 

-. 04145 


. /'0 1 1 C 

.03610 


1) 

.CCJ34 

.01 71 3 


14 

.OOOV4 

.00577 

-.01170 

IS 

.CUC34 

. 0050? 



.0004 3 

.00467 


. 

' .OCO/S 

. 00474 

.01 V07 

' IP 

.OuJ70 

.00 346 

-.16493 


.C0064 

.00359 



.00J6B 

.noidi 


?t 

.COOoft 

.00374 

-.03199 

?2 

.OOOS3 

.00797 


2i 

.000S7 

.00791 

.01314 


,00U>2 

.00 TVS 

.00747 

?•> 

• tlU04d 

.ooilf 


2t. 

.0003S 

.00771 


21 

.C0O47 

.0073 7 


23 

.00337 

.0071 1 

.05446 


.002 >S 

.00714 


30 

.00330 

'.00171 

-.07009 



■;'o->2or‘” — 

.10a47 “• 

JJ' 

. Utl.> *.0 

■ .00776 


)l 

.0032H 

■" .OOlSs 


34 

.C03.S 

■■ .C0139 


IS 

•• .ooo^s 

.00139 


3S 

.0D3?6 

■ .0014 7 

-.34711 



. .0;)!71 

*■ -.00779 

n 

.00.1 n 

. iM t 7b 



. fi; •/ 7 

(a) Input . 

, ••• M-. * 



I t'Mcf.SURI- IsVIir. Al VAK|l..rs 4M 


wi*%tPVeP tLlVAUifN AUGLI; 
A 


JaiiRVlA MlA-jlU kf.C.Lt: 



“ijA-s>r 


(b) Output. 

Figure 7.- Printed input and output for Case C. 
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NSPL 


6 . 


XMIN 

= 

• 

c 

• 

c 

XMAX 

= 

0. lE+04, 

YMIN 

= 

0. IE*02. 

YSCALE 

= 

0.1E*02» 

RUN 

= 

0. S09Ff0S 

SEND 




Figure 8.- Parametric input for program SPLPLT 



SPL. DECIBELS 


SINPIIT 


NNPIOT = 0. 

SEND 

(a) Iignit. 



rRaSUEfCy. HZ. 


(b) Gr^^hic output. 

Figure 9.- SPLPLT input and graphic output for Case A. 
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1 1 1 1 ! 1 1 1 1 1 1 i 1 1 1 ] ] m ! ] M 1 n 1 1 1 1 1 1 ] 1 1 


ilNPUT 


NNPIOT = 2» 

SFNO 

(a) Iiq;)ut. 


-4l 


3 *2C 
o 

3 -30 
o 

Cvl 

5 -40 


ili 


503. 043LH;N3.8 03 

- 355. THift6VzHV/> LO LO z .271 

PERCSNr.OGE OF CHCRO INfEGRflrEQ z 100.0 




■A,;, I 




tlU LUJi.ilm Ui-l 
:co 


uJL. 

eoo 




(b) Graphic output. 

Figure 10.- SPLPLT inpxit and graidiic output for Case B. 






SINPUT 


NNPtOT = 2* 
SEND 

(a) Input. 


-^ 0 "- 3 



Figure 11.- SPLPLT input and graphic output for C^e C. 











(a) Distribution at instant of time. 



(b) Time history of loading distribution. 
Figure 13.- Arbitrary chordwise loading distribution. 
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■■■■■■■■■■■ 

■■■■■■■■■■a 

■■■■■■■■■■a 

aaaaaaaaaaa 

aaaaaaaaaaa 

aaaaaaaaaaa 


11^1 

naaisiaai^aaB 


B ai 

ai 

nai 
lai 

1—1 

.jBaaSlaaiasa: 
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CHARACTERS AVAILABLE IN THE SYMBOL ROUTINE 
FOR THE CDC 6000 SERIES COMPUTERS 

CONSOLE DISPLAY CODES INTEGER EOUIVRLENCE 

REFERENCE LOWER LEFT CORNER 


01 

H 

21 Q 

41 

6 

61 

E 


16 

1 

32 

€ 

02 

B 

22 R 

42 

7 

62 

D 

1 

1 

17 

% ! 

Wri 

03 

C 

23 S 

43 

8 

63 

e 

o 

2_ 

..... 

18 

T 

34 

e 

04 

D 

24 T 

44 

3 

64 

t 


13 


35 

X 

OS 

E 

2S U 

45 

+ 

65 

9 

a 

Q 

’X 

20 

p / 

36 

M 

06 

F 

26 V 

46 

— 

66 

1 

0 

5 

1 

21 

/ 

37 

y 

07 

G 

27 W 

47 

* 



6 

Z 

22 

«— 

38 

U 

10 

H 

30 X 

50 

/ 

70 


7 


23 

A 

33 

F> 







99 







11 

I 

31 Y 

51 

[ 

71 


8 


24 

m 

40 

cf 

12 

J 

32 Z 

52 

) 

.72 

< 

3 

V 

25 


41 

r 

13 

K 

33 0 

53 

$ 

73 

> 

10 

i 

26 

8 

42 

0 

14 

L 

34 1 

54 

— 

74 

< 

11 

e 

27 

00 

43 


15 

M 

35 2 

55 


75 

> 

12 

/ 

28 

a 

44 

w 

16 

N 

36 3 

56 

9 

76 

± 

13 

A 

23 

0 

45 

w 

1'^ 

0 

37 4 

57 

o 

77 

o 

9 

14 

o 

L 

30 

T 

46 

d 

20 

P 

40 5 

60 

9 



15 


31 

6 

47 

f 


Figure 16,- Plotting characters. 




CRLCOMP 

Hollerith Caro Code 

Console 

CDC Printer 

SYMBOL 

CMULTIPUNCHEO COLUMN) 

Display Code 

Symbol 

9 

% 

60 

= 

c 

! 

’b 

y 

61 

c 

i 

D 

% 

62 

1 

2 

O 

O 

s 

63 

• 

• 

t. 

'a 

6H 

X 

9 

a 

% 

65 

-* 

\ 

a 

■•o 

66 

V 



70 

T 

99 


71 

i 

< 

'=0 

72 

< 

> 


73 

> 

< 

=8 

74 


> 


75 


+ 


76 


0 

9 


77 

• 

» 


Figure 18.- Extended card codes. 


NflSn STflNDPlRD 

PLOT 

SYMBOLS 

INTEGER 

REFERENCE 

SIZE 

SMALL MEDIUM 

LARGE 

1 

o 

O 

o 

2 

“□ 

□ 

□ 

3 

o 

O 

O 

4 

A 

A 

A 

5 




6 




7 

Q 

Q 

Q 

8 

O 

c> 

o 

3 

0 

0 

0 

10 

Cj 


(A 






NRSn STflNDRRD PLOT SYMBOLS 

INTEGER SIZE 

. REFERENCE SMALL MEDIUM LARGE 


11 

© 

© 

© 

12 

B 

0 

m 

13 

<s> 


<$> 

14 

A 

A 

A 

15 



te. 

16 




17 

© 

© 

a 

18 


<5> 

<5> 

13 
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